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ABSTRACT 


A two-dimensional computer simulation of a plasma in a 
solenoidal magnetic field is developed. This simulation is based on 
a magnetic flux shell model of the plasma. Effects of finite 
electrical conductivity and anisotropic heat conductivity are included. 
The computer code can optionally calculate the full radial dynamics 


of the problem or make the approximation of radial pressure balance. 


The computer program has been used to do sample calculations 
on laser heated plasmas confined in a solenoid and on a 6-pinch 
reactor. The program has also been used for a numerical study of the 


hydrodynamic behaviour of laser heated gas target plasmas. 


A theory for the beat frequency mixing of antiparallel 
laser beams in a homogeneous plasma is developed. This theory includes 
effects of ion mobility and electron-ion collisions. Based on this 
theory and MHD simulations of laser heated plasmasin solenoidal magnetic 
fields, a plasma parametric amplifier of infrared laser radiation is 
proposed. Analysis of this device indicates that it could be used 
to efficiently amplify infrared radiation and may also be capable of 


creating and amplifying extremely short pulses of infrared radiation. 
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ro = 12.0 um. The plasma temperature in eV is 
indicated on the curves 145 


5.6 dfas*a’ function of no for™=A,” = 1026 um-and 


1 


do = 14.0 um. The plasma temperature in eV 


is indicated on the curves 146 
> | a as a function of ny for hi 10.247 um and 

ho = 10.2605 um. (1) T, = 100 eV, T = 50 eV; 

(2) T, = 200 eV, T, = '50"eV: + (3) Ee = 500 eV, 

T; = 300 eV 146 
5.8 a as a function of T, for a 2e5'x 10%! enol 

dt = 10.247 um, and ho = 10.2605 um. The 

value of T, is indicated on the curves 147 
239 a as a function of T, ror nee Leo eX 10%" ae 

dt = 10.247 um, and do = 10.2605 um. T, 


is given by (l1/a) a” where values of a are 


indicated on the curves 147 


On2 Schematic of optical amplifier. Mirrors in 

(b) and (c) make an optical resonator and 

increase the intensity of the low freq- 

uency beam 169 
64.2 I, in Wrem- as a function of axial 

position, x, at three different times. 

(ly 1t =:i.co ns, .(2) t= 2.67 ns;,) and 


(3) t = 4 ns. No beat frequency mixing 


in this case 169 
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6.4 


69 


6.6 


6.8 


6.9 


I, (dashed curves) and I, (solid curves) 


: 2 i 
in W/cm” as a function of axial position, 


Ks) at 1turee, ditferent times. (1) t = 1.33 ns, 


(2) te" 2,67 ass and (3) t= 4 ns. Initial 
peak pulse intensity is 10° yen 

I, (dashed curves) and I, (solid curves) in 
ica asba function of axial’ position,. x, 


at three different times. (1) t = 1.33 ns, 


ict = 72407 0s, and (3) t = 4 ns¢ Initial 


peak pulse intensity is 10” rene 


Real and imaginary parts of D(k, 50) vs w 


for T. = 160 eV, T; = 120 eV and 


no 2 ex iors rs fai 


D(k,,t) as a function of t corresponding 

to D(k,,w) in Figure 6.5 

Real and imaginary parts of D(k3,w) Vs Ww 

for T, = 160 eV, T; = 20 eV and 

li Leo VX tore By = 

D(k,,t) as a function of t corresponding 

to D(k,,w) in Figure 6.7 

I> I, and In, | as a function of distance 


from pulse front, x, after pulse front has 


10 
travelled 40 cm. Initially I, me A ee 10 


2 
wrens and I, = 10° W/cm 
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FIGURE PAGE 


6.10 Same as figure 6.9 except pulse front has 
now travelled 80 cm LS 
B =3 
sr I> I, and In, | in cm” as a function of 


2 ~ 
distance from pulse front, x, after pulse 


front has travelled 40 cm. Initially 


I, = 1.8.x 1 fend and I, = age ete 174 
6.12 Same as figure 6.11 except pulse front 

has now travelled 60 cm 174 
6.13 Same as figure 6.11 except pulse front 

has now travelled 70 cm i Gs, 
6.14 Same as figure 6.11 except pulse front 

has now travelled 80 cm Byes: 
gg I,> Is and In, | in on as a function of 


‘ (ay; 
distance from pulse front, x, after pulse 
has travelled 40 cm. Initially I, is of 


triangular shape with peak intensity of 


Were Wien at x = 1.5 em, and 

Ta esis 176 
Gato Same as figure 6.15 except pulse front has 

now travelled 80 cm 176 
ALL Spatial positions at which variables are 


calculated. N, T.> T,, Vo» and B are 
calculated at shell centers denoted byo. 
R, W, and u are calculated on shell 
boundaries denoted by x. The indexing of 
variables is indicated on the bottom and 


right hand side of the figure 210 
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FIGURE 


A.2 


Flow chart illustrating two-step scheme 
Position and indexing of numerical grid for 
calculation of laser power P, and absorbed 
energy E, relative to positioning and 


indexing of MHD variables 
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CHAPTER 1 


Introduction 


The physics of laser-plasma interactions is an important 
part of the boucrotied thermonuclear research program. While most of 
the effort in laser-plasma interaction research is directed towards 
the development of laser-pellet implosion fusion, a considerable effort 
is being devoted to the study of plasma dynamics and laser-plasma inter- 
actions in solenoids. In such a device a solenoidal magnetic field 
provides radial confinement of the plasma and inhibits thermal conduction 
in the radial direction. Dawson et all have suggested that co, laser 
heated plasma columns may offer an alternative approach to controlled 
thermonuclear fusion. In this scheme the plasma is heated through the 
absorption of a high intensity co, laser beam that is directed down the 
solenoid axis. The beam is guided down the solenoid axis by an on- 
axis density minimum which is created by a high on-axis heating rate. 
Additional heating may be provided by an adiabatic compression achieved 
by increasing the strength of the solenoidal magnetic field after laser 
heating is Panacea. In the simplest concept the plasma confinement 
time is limited to the time required for the plasma to stream freely out 
of the solenoid ends. Solenoid lengths of about 1 km are required to 
achieve adequate confinement Eines. It has been suggested that endloss 
could be reduced, and hence the device shortened by plugging the ends 


with solid material or high density gas. Heat loss to the ends through 


thermal conduction then becomes a serious problem. 


Problems and ideas related to this concept of laser fusion 


are being investigated in several laboratories using short Cat IF mv) 
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solenoids. However, these experiments and reactor concepts are difficult 
to analyze theoretically. This is because a good theoretical understanding 
requires the simultaneous solution to the equations that govern many 
different but inter-related physical phenomena. Because of the complexity 
of this type of problem, computer simulations have become an essential 

tool for plasma physics research. Computer codes can incorporate many 
different but inter-related physical phenomena. This can be useful in 
testing simplified theories as well as providing a better understanding 

of experimental observations. In addition to explaining experimental 
results, computer models can predict unexpected phenomena, and be useful 


in the design of new experiments and reactor concepts. 


The rapid advance of computer technology in the past few 
years has resulted in larger and faster computers being available to 
plasma researchers. This allows for the numerical solution to more 
sophisticated mathematical models leading to more realistic computer 


simulations. 


In Chapter 2 of this thesis a two-dimensional computational 
model developed by Dr. J.N. McMullin and the author is described. This 
model has been designed to simulate the magnetohydrodynamic behaviour of 
a laser-heated plasma in a solenoidal magnetic field. An attempt has 
been made to make the computer code sufficiently versatile so that the 
one program can be used to study short experimental devices as well as 
reactor design concepts. 

Electron thermal conductivity and fluid flow in a plasma in 


a strong magnetic field is markedly anisotropic. The thermal conductivity 


is much larger along the field lines than across it and plasma flow is 
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dominantly along the field lines. Because of this, a large amount of 
numerical diffusion is experienced when normal differencing techniques 
are employed to solve the MHD equations. An extremely fine computational 
grid, resulting in an excessive amount of computer time needed to do 

long simulations, is then required in order to attain reasonable accuracy. 
This problem has been eliminated in the present model by transforming 

all of the equations into a moving non-orthogonal coordinate system 


defined by the magnetic field lines. 


Another feature built into the present numerical model is 
the option of assuming radial pressure balance or calculating full 
radial dynamics. In many cases the time scales of interest are much longer 
than the time required for a magneto-acoustic wave to propagate across 
the solenoid radius. When this is true any pressure imbalance in the 
radial direction is quickly smoothed out and the assumption of radial 
pressure balance in a numerical model is valid. The main advantage of 
making this assumption is that it eliminates what can be a very restrictive 
stability condition. The present model treats diffusion terms implicitly 
and all other terms are treated explicitly. Consequently, the timestep 
size is limited by the Courant-Friedricks-—Lewy Peedi one Liga att 
radial dynamics are calculated the timestep size is limited by the 


following two conditions: 
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where At is the timestep size, oi is the magneto-acoustic velocity, 

AR is the numerical grid size in the radial direction, os is the 

sound velocity, and Ax is the numerical grid size in the axial direction. 
For almost all simulations of plasmas in a solenoidal magnetic field 
condition (1.1) is much more restrictive than condition (1.2). The 
assumption of radial pressure balance eliminates condition (1.1) and 
timestep size is limited only by condition (1.2). For the simulations 
of long solenoids such as reactors this reduces the required number 


of calculations by several orders of magnitude. 


Flux coordinates were used in a numerical model developed by 
Hertweck and Schneider” and used by ScEMEIaeE. and Bodin et ane in 
the study of end-loss from 6-pinches. However, their model assumed 
infinite electrical conductivity so that the effects of magnetic diffusion 
in the plasma were not included. Although this approximation was adequate 
for their studies, it breaks down completely at low temperatures during 
the early stages of heating of the plasma. Magnetic diffusion is also 
expected to affect the end-loss from long, high 8 eee even at very 
high temperatures so finite conductivity has been included in the present 
model. Other improvements in this model are (1) the inclusion of full 
radial dynamics using an implicit scheme for calculating the motion of 
flux surfaces; (2) the use of a direct (rather than iterative) method 
for advancing the equations when radial pressure balance is assumed; 
(3) the simplification of the equations of motion by assuming only minor 


distortion of the field lines. 


Sample calculations, using this computational model, are 
presented in Chapter 3. The versatility of the code is demonstrated 


through the presentation of results from solenoids of lengh 5 cm, 1 a, 
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The code has also been used to provide numerical backup for 
experiments performed by Dr. A.A. Oreenber cee. In Chapter 4 some 
results from a computer study of the hydrodynamics of gas target experiments 
are presented. In these simulations a CO, laser beam is assumed to be 
focussed into a semi-infinite slab of unmagnetized plasma. The laser 
heating of the plasma and resulting hydrodynamic expansion are modelled. 
Because the plasma is unmagnetized and the model uses a coordinate 


system based on the motion of magnetic flux lines some small alterations 


had to be made to the code for these simulations. 


The results of Chapter 3 suggest that a laser heated plasma 
in a 1 m solenoid can have very long axial scale lengths. Simulations 
show that a plasma can be created with parameters ideal for the beat 
frequency mixing of antiparallel laser radiation. It is suggested in this 
thesis that this process could be used to create a very efficient broad- 
band amplifier of infared radteetodas as well as a device capable of 


creating or amplifying extremely short bursts of infrared radiation. 


Rouphens has demonstrated that a short pulse of laser 
radiation can be amplified through the absorption of energy from a longer 
pulse of laser radiation propagating antiparallel to the short pulse. 
The radiation in the longer, or pump, pulse has a slightly higher frequency 
than the short pulse. The process works as follows: a high intexsity 
pulse of laser Lees is directed into a mixing medium, in this case 
CH, gas. A short pulse of lower frequency laser radiation is directed 
antiparallel to the original pulse. Energy is transferred from tie sigh 


frequency pulse to the low frequency pulse through a Raman proces:. ~ 1us 


\ aa : in| " 
‘ 7 * in a o] = 
a) ow id 
Wi ¥! ies 1 ‘ a | 
2 

- a ' i = 

; oY j 
nal y a | ae 


on, 2 ("4 v 


301 quinad feotraaun aibuogy a) vpn bac sin ai f - | 
bees ‘a ig 
aca bh alad i. Ccsipsndnaito Reh x 


eer jag7ad £ng 2+ vi xaies nyGo righ wets Yo, thee radon lesen 


a, in “ 


+ m, + Al: wart 
ad o3 temvees 2)  aheed taagl GO 6 aos tains eed a, »hg2ne8 “a 


iy. ae, 
i) ad 


reaat of) ,umeota ‘Susi tepgenae to dw ka ae a 

sh i 7 | ey HA eS “Le pDa thy i at i 3 Nes ‘ hea) + 
i phos o2a. note: MRED O byt. & aa2 hers a 
a3enthyoos. a ety Japon ods bok bask otigrabu A ie ade as 


y 


vetia. [lege snow ventl ast? Si senR ey ta POLY} ET. Pree ad 


anole fiers bvseid 102) Sbo9" ‘da Od ‘soa sae 
Pir : 
; ty ar a 
mee lt betesd chest) s t543)436ngue & dosap 20 aulvee Ar. 


sictiniunats,. ,2niensl: sicoa (sias anol e ey Sait" ae bismioy r 


id 
- 
wa! 


Id Sb? eadjauagsg dah gadders Sd fee ‘agente a) 3 = 


staagsve 22. 31° 4 pokestoee ale Latbaaeitdags te andy 


| ae" Ps 7 en 


bsptd Srelatiis visy s PIBATI “03. heey ¢% Amheuk saeceana ne hae 


| aie at 


ae: 
nye? soivsb 2/65 Bie Mood selbes, poakteb “he hating 
sliex A svesEe te | E " ie Es i" 
fe 32ALi Scant avy verbal aie we 


fe 
cy 


' aw 


TSEAL 26 aeiug agedas 5 dedg eperaanand h A 
at 
ne i 


Tadel y moh yeTsiis 36.3 Jott paahae Pde Aone tosp i att fas ! 
Js ine 12982-3809 oF iStaaeg tem ot ae steers io a a 
yonsupest! serigtt wisdeliz & ice ealug ati Le (hase ny ni si ome : 
ot sini! digit &. ott teh, a8 itl net Pas selng cst at ils s 
Saha: fits of) ou cian’ agtxta 7: ant pao FL lati! amontey al 
Bag ips ah pinotaaaher: t4z8t vnhaps? oe ie set ea: A yee oe 


if 


ma os " sea bey sdabe23 Bt <aagithe 


» if one eit ‘heel 
aie prea ees Haves sn i t ca. a Heli: Ronmopee 
a f si Te y 7 os 
a < i [Vy aa’ ey ie i oF 
eam. i air aed o ee 
} 2» iy : “ Ni - x os A A ; Pe 4 vi _ 1 > - Lad 


the original pulse energy is depleted and the short pulse is amplified. 
If the process is fast enough most of the energy of the pump will be 
transferred to the front of the amplified pulse. In this way energy 
from a longer laser pulse is used to create an extremely high intensity 
short pulse. It is feasible that such a process could be used to 
efficiently create the short pulses of radiation needed for laser pellet 


fusion. 


In Krupke’s experiment neutral CH, gas was the mixing medium 


4 
for 259 nm and 268 nm wavelength pulses of radiation from KrF lasers. 

In this thesis it is suggested that a plasma could be used as a mixing 
medium for infrared radiation in the 10.6 um range. The mixing can take 
place between waves with a difference frequency close to the electron 


plasma frequency (a Raman process) or the ion-acoustic frequency (a 


Brillouin process). 


Chapter 5 contains a review of some of the theory of the 
beat frequency mixing of antiparallel laser beams and extends this theory 
to provide a basis for the analysis of a device capable of amplifying 
ultra-short pulses of laser radiation. Chapter 6 contains a theoretical 
analysis of two proposed devices which rely on the beat frequency mixing 


of laser radiation in a plasma. 
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CHAPTER 2 


A Two-Dimensional Magnetic Flux Shell Model for M.H.D. Simulations 


This chapter describes a two-dimensional computational model 
developed by Dr. J.N. McMullin and the author to simulate the magneto- 
hydrodynamics of a cylindrically symmetric plasma with an imbedded 
solenoidal magnetic field. This type of numerical simulation is a 
valuable supplement to current laboratory experiments designed to test 
the feasibility of using a magnetically confined plasma column as a 
thermonuclear device. Numerical models are also the only way at present 
for evaluating proposed designs of fusion reactors and neutron sources 
based on linear plasma columns. Because the geometries of current 
experiments and reactor designs are basically the same, both can be 
simulated with a single code even though the dimensions and physical 


parameters vary over wide ranges. 


A common feature of all experiments and reactor designs is 
the attainment of high electron temperatures (>40eV). Due to the resulting 
large electrical conductivity, the motion of plasma particles across 
magnetic field lines is strongly inhibited. Strong magnetic fields can 
therefore be used to restrain the plasma against expansion during heating 
as well as to inhibit loss of heat by conduction to the surrounding walls. 
The main losses of internal energy of these plasmas are convection and 
heat conduction along the field lines which join the confined plasma region 
to the outside world. If the magnetic field lines are used as coordinates, 
the motion of the plasma is mainly one-dimensional along these coordinates. 
Furthermore, there are no mixed derivatives in the parallel heat conduction 


term of the electron temperature equation so that heat conduction along field 


r mex 4! _ 
Be So * ‘ i) 
- " AG 
- y } 

; 
| 
yt Cw ! 

Ne ate Sh 
¢ BRYPARD! Se 
ney Meer 
4 a 


scodsalatht apd dali a i 
fshon Innohaeagqnon fenokensetbvovs 5 sede soe a 
~Qtangem 249 ape Loade: oF yor Hus. sa3 Bas nettle hf Si as 
Hoabiredari. ve Maske apeney stg ismms..\ eae ‘ek ie 3 

& 2 nolvetyia Sestspaue Yo Sqv7 grat bien Asan . 


laey oF beng sab einenlys¢73Botetodn lL annsse: od. Sreins Tayi. 


A 28 Dares sores! | Cy L200 'F F 4 ans 3982 Bi T gneau a Vash rs BE 
a! A i F = teh ey ane le he fay ‘a 


a 
f 
mw 
~~ 
ty 
a 
~™ 

4 
a 
+ t 
? 
me 
i 
ib 
ts 


Ta } 
eu i . aia A j wos 2 sig SEUROSE +2 7205 smaala hyn ie i 


eS StTkOS. POWMINSR bas Storoan3 sol aua 20 ee ized. iasewie is “aa ayy 


ad 
" 
* 
po 
1 
7 
‘2 
J 
r 
, 
7* 


nso djcd ,avae: Set wl Ueskeet enk ens regh sp 9tinos bas.2 3h 


jlavilg bas caclenombh org dyapilf apie ay Sls ae. ia e soi ay 
*y oe 

seater piibey! reg, TARY 

ai eh¥lesh: 1025892, brs Peincatenh is ibe id oases’ 2 song: a, 

S17 Sfi ay bot”) ANSORS es entre a aoe aap i ‘pat 40" ang nih baci 

| 

eeinlsze Gusie than etene EP. it stub oi 


ty an hi 
a 
~— 


169, sblazq shasasen Bnbtae ‘base nee Wsdags hie ha . 


a 


7 os 


xd 


areg3Eensiiieb nctka \One? FSNTS 4e aC EAA: ag: distiuay a 
mn Ne : sate u Lao 

‘ Md a Al Sey 

allow Serboulirevsde 03 ecier pubatng va deal to) vepk) sista 2 
un : 

: (a) ae 

me ‘ 

aoi gst amigiq hen licos Sz aaa aire: voakt biex pas oe 


bia noLaeaulin® D1 Se See ig dans - Srkaki tucson res ‘@8 


“4, 
aes Has maitepee oHs ai  hataametcan ica bi i ye a ats 
on wat 


waft reg2s3 Bee 
OF de ge 


bie? gaat! MOL b9 =2sig sandy qe GOLA 


: i Ol Vt i 


f * ——_ i 


lines may be calculated free of errors due to numerical diffusion across 
coordinates. For these reasons, the numerical model uses magnetic field 
line, or flux coordinates, (s,x,t), where s(r,x,t) is the magnetic flux 
through a circle of radius r centered on the x-axis, instead of the 


regular cylindrical coordinates, (r,x,t). 


ao r$ sbseayen a5 a (kee aio fe (as as) : 


; oa ood Yo basset ech a a 


~ 


a hd UR, +3 (e a7 


PONS The Hydrodynamic Model 


The present model is based on the hydrodynamic equations 


given by Braginskiil 


The plasma is approximated as a fully ionized 
two-temperature ideal magnetohydrodynamic fluid. The electrons and ions 
are assumed to have the same local number density and the same fluid 
velocity. Cylindrical symmetry is assumed in the derivation of all the 
equations. A solenoidal magnetic field is assumed to permeate the plasma 
although it may have a vanishing field strength. The magnetic field is 
assumed to diffuse due to a classical electrical resistivity with joule 
heating being absorbed by the electrons only. The strong anisotropy of 
thermal conduction perpendicular and parallel to the magnetic field lines 
is accounted for. Electrons and ions are assumed to exchange energy at 
the classical equipartition rate. An artifical viscosity is introduced 
to numerically handle shock waves which may be generated by a strong 
expansion. The artificial viscosity has the effect of spreading a shock 
front over several mesh points as described by Richtmeyer and Homeorae 
The model allows for the heating of electrons through the inverse 


Bremsstrahlung absorption of a laser beam propagating down the solenoid 


axis. 


The equations used are listed below in cylindrical coordinates 
(r,x,t). In these equations n 5 is the electron number density, m, is the 
ion mass, p=m,n is the mass density,v, and ve are the axial and radial 

Die 
components of fluid velocity, T, and T; are the electron and ion temperatures, 
and P=n k_.(T +T.) is the scalar pressure. B_ and B_ are the axial 
OVD Seer oe 8 

and radial components of the magnetic field. The total derivative, qo 


is the convective derivative: 
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atta pt+s Hv) 1 =0 (2.1) 


where q- and ae represent artificial viscosities in the radial and axial 


directions respectively. 


ov ov 


Po beh itee r 
ane. oan? erie 
q. = 
ov 
ox ae 


a is a variable having the dimensions of length and is chosen to spread 
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a shock over several radial mesh points. 
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a. is a variable having the dimensions of length and is chosen to 


spread a shock over several axial mesh points. Splitting the acceleration 


> 
equation into axial and radial components and eliminating J with 


>> 


> 
VxB = (4n/c) J yields: 
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Lee Temperature Equation: (€ =e or i for electrons or ions 


respectively) 
dT dn. dT Ga 
. — =n — * V-Q + 
"> dt ge Oe dt Ode nae roa ul! 
oll B 
(2.4) 


The first term on the right gives the rate of energy transfer between 
electrons and ions by collisions. In the electron temperature equation 
this term may be approximated as: 

dT 


dt ioe 


coli eq 


where TT, is the appropriate collision time. The same term with opposite 
sign appears in the ion equation. The second term represents the inverse 
Bremsstrahlung absorption of laser energy while the third term represents 
thermal conduction. The last term, which accounts for electron heating 


due to magnetic field diffusion can be expressed as: 


ll 


7 & 


2 aaa hy 
aor sstefasss anh wate pe eate a: ; ives vo ds " , a , 
on ane De coe ae i 

4 shasta 2 Wis. ™ ip Pe ee | =a 
Fel AO ab a Ya 

‘| Pebisty & Coleen 


ftw t gikiaphaste Bees 


i oe Tyo ‘oS an? 


(t,5) Bo =. 


aot a0 enoxtosls. se? bo16 S» © Speeol 


(eevisoegaor| 
one 
f a | =] 
} 4 mt tame | lee em ger, 
{yt> ‘2 iré 4 LPR og 


1Saviedstsizzsz3 Karen to S1at ats, eave d 


(2.0) is 


i 
4 ee 


Ate nc Aihs Cee Miss af, \e Rei 


poten: 


Bik 
al aah tried. Bptaw ae oe 


sate Sify” eng 


i pity ey | rn 


where co, is the perpendicular component of the electrical conductivity 
tensor. Only the perpendicular component of the electrical conductivity 
tensor is needed since the current is purely azimuthal when the magnetic 
> 

field is solenoidal. The heat flux vector Q. is given by: 

6 Re ROE 

E ie € 

where K. is the heat conductivity tensor. Shock heating, which can be 


accounted for through the artificial viscosity term, has been neglected 


in the present treatment. 


2.1.4 Magnetic Field Equations: 


Equations for the magnetic field components can be written as: 
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Equation (2.6) can be derived from V°B = 0 while equation (2.7) is 


obtained from Maxwells equations and Ohm's Law, 


2.1.5 Laser Absorption and Propagation: 


The electron heating rate due to the inverse Bremsstrahlung 


absorption of laser energy used in equation (2.4) can be written as: 
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n = K I, (r,x,t) (28) 


fe) ei 


where I, is the laser beam intensity and K is the absorption coefficient 


The laser beam has a given radial profile, Gaussian for most cases, 


which is assumed to be unaltered as the beam propagates down the solenoid 


axis. The total beam power Pe where: 


P_ (x,t) = 27 f I, (r,x,t) rdr C295) 
fe) 


obeys the transfer equation: 


ate 


3 3 Dg ae 

pau Wake ie ee (210) 
c is the speed of light and Je is the absorption coefficient averaged 
over radial profile with the weights at each radial position being 
proportional to the beam intensity at that point. This scheme reflects 
the fact that a light ray is refracted through regions of varying 


absorption as it propagates through the plasma. 


2.1.6 Transport Coefficients: 


Values for the transport coefficients that have been used 


13 
in this model have been taken from the Revised NRL Plasma Formulary 


The formula connecting the low and high magnetic field limits Lor, per 


pendicular thermal conductivity comes from Hain et all4, In the following 
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temperature is measured in eV and ke = 1.6x10 “ ergs/eV. 
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Thermal Conduction Perpendicular to B 


so Bip? 
peue T4mic ( —ergs ) 
bil f TBP eV sec cm 
(1 + 6, 5 ) 
n 
fe) 
where 
5° % 3.1x107 gt 1.25x10° 
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In the limit of large magnetic fields, ee >> v_.» (where Mee is the 
cyclotron frequency of species e€, and ye is the collision frequency 
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Laser Absorption Coefficient 


The value given by Johnston and Dawson!> is used and for \=10.6um 
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22 The Magnetic Flux Coordinate System 


A number of different numerical schemes may be used to self- 
consistently solve the partial differential equations in Section 2.1. 
Since energy transport due to either particle convection or thermal 
conduction is strongly anisotropic, with the dominant energy transport 
being along the magnetic field lines, any such scheme will introduce 
considerable numerical diffusion in cases where the magnetic field lines 
are not parallel to the x axis. In the present model the differential 
equations are transformed into a time dependent non-orthogonal coordinate 
system defined by the magnetic field lines. In this coordinate system 
energy transport occurs dominantly along one of the coordinates and the 


problem of large numerical diffusion is eliminated. 


2.2.1 Definition of the Coordinate System 


The transformation of variables from cylindrical coordinates 


(r,x,t) to flux coordinates (s,x',t') is defined below. 
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The radius, R(s,x,t), of a flux surface of constant s now becomes a 


plasma variable from which the magnetic field components can be determined. 
2.2.2 Transformation of Derivations 


Relations governing the transformation of derivatives between 


the two coordinate systems will now be obtained. 


ds dr dr ds 
dx' = Xx dx and dx = hy dx' (22035) 
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By using these relations, the partial derivations transform as follows: 
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The right hand side of equations (2.16) is now a function of the new 
variables. Some other differential operators and quantities that will 
be required to express the MHD equations in the new coordinate system 


are derived below. 
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For any vector VY defined in cylindrical coordinates 
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An expression for v, can be obtained. 
dRGl oR oR dS oR 
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re dt ot! (2.20) 
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Equations (2.17) and (2.20) both contain the factor a This factor 


can be expressed in terms of the magnetic field components. In cylindrical 


coordinates: 
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From equation (2.11) and V - B = 0,it can be shown that: 
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From equation (2.11): 
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From equations (2.11) and (2.7): 
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By substituting equations (2.21), (2.22), and (2.24) into equation (2.20): 
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2.2.3 Dimensionless Variables 


Numerical techniques will be employed to find approximate 
solutions to the magnetohydrodynamic equations in the magnetic flux 
coordinate system. It has been found that the algebra can be greatly 
simplified and computer time can be significantly reduced if certain 
small terms are neglected in the magnetohydrodynamic equations. Such 
small terms can most easily be identified if the M.H.D. equations are 
expressed in terms of a set of dimensionless variables. By using 
dimensionless variables in the computer program the number of constant 
multipliers in the difference equations is reduced which in turn reduces 
the computer time required for a solution. In converting equations to 
dimensionless units, dimensional quantities Q are replaced by 09 
where oy is a convenient unit and 0 is the dimensionless variable. The 


four basic quantities used to define the dimensionless system are defined 


below. 
(i) Ly - axial length unit ge Ly x 
Git) Ro - radial length unit o* o> ee r 
(itich } No - number density n > Ny N 
(iv) Ty, - temperature ate > T, Tal; 


The other basic units that will be used are defined in terms of the 


above four variables and are listed below. 


i = - Pressure 
(2) Py Nokpl, 
Gt) 1B = (87P yi/2 - Magnetic field 
fo) 
(1i1) -v =) (kT /m yi/2 - Axial velocity 
fe) Beds. 2 
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(iv) to = La/v - Time t'=tot 
(v) A, = wR 5 - Area 

(vi) S5 = ALB, _ 7 Magnetic flux 
(vii) ES = Nokpr ough = Energy 
(viii)P = Nike TAY - Power 


pa Ape Expansion Parameter Ej 


The length of a typical solenoidal device that we are interested 
in modelling will invariably be much greater than its radius. As a 


result Lo >> R, and a small parameter ¢€, = Ro/L, can be defined. When 


il 
the MHD equations are expressed in terms of dimensionless units in the 
Magnetic flux coordinate system, many terms appear that are of order 

2 


ey . In the present treatment such terms have been neglected. Neglecting 


terms of order ay is equivalent to assuming that the slope of a field 
line with respect to the axis of a solenoid is a small quantity e and 

that terms of the order of ef can be neglected. For a magnetic field in 
a typical solenoid, 3 es 1 except for small regions near each end where 
the field lines are diverging. The axial length of these regions is of 
the order of the solenoid diameter which for most experiments and all 
reactor designs is a small fraction of the total plasma. In laser heating 
experiments in which a bleaching wave propagates through the plasma, the 


approximation should remain valid if any one of the four following 


conditions holds: 
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Bleaching Wave Velocity, V 


bw 


>> V 


» Magneto-Acoustic Velocity 
ma 


2 
(4) ce /(4n ae en >> o, Electrical Conductivity. 


Condition (1) ensures that the magnetic pressure will prevent significant 
expansion of the plasma and hence distortion of the field lines. If 
condition (1) does not hold, then it is reasonable to assume that the 
region being heated and still expanding is on the order of L = min(V, At, 


Libs? where At =R oe is the approximate expansion time of the plasma 


las 


under uneven radial heating. Since the displacement of a field line is 


on the order of the radius of the heated region, R » the slope of the 


las 


= R Either of condieions (2) or (3) 


1 ®yas/t 


field lines is approximately e 


ensure that = 1s 


field by diffusion dominates over distortion of the field by fluid 


When condition (4) holds, smoothing of the magnetic 


convection. 


2.2.5 Transformation of Derivatives and Associated Differential 


Operators to Dimensionless Variables 


The transformation of the variable S, as defined in equation 


(2.11) into dimensionless form yields: 


% 
v Kons ye Dy av 
t= fe Ber’ dr’ (2.26) 
fe) x 
It then follows that: 
nV) 
3S pig 1 
or x aR 
av 
s 
or 
ea Sats (2527) 
x 2R9_R 
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av nV 
The subscript x will be dropped on B in subsequent analysis. The 
x 
variable D is defined as follows: 


D=i— (2.28) 


The variable D is converted into dimensionless variables by using equation 


(2.25) and dropping terms of order e : 


n eas 
#) av) 
p= = BK B= ob (2.29) 
L ar . 
where 
07 B 
4 fe) 
fe) 20, 


Two other quantities that will be frequently used in subsequent 


analysis are: 


V 
3 fe) Vv 9 
D—-=->-— e-0dO0-,— 
qs bes Zz ae 
(2230) 
s 1 Z 
o os 
where 
cL 
“2° 2TO, R? 
<n 6 


The magnetohydrodynamic equations defined in Section 2.1 can 
be converted directly from cylindrical coordinates to magnetic flux 


coordinates in dimensionless variables by using the differential operators 
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in equations (2.16) to (2.17) expressed in terms of dimensionless variables. 


The operators may be shown to take the following form. 


a 
aR 
P) gs t 
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(e) t Me Ss 
Ss 
AV 
d,R 
Pe) i x 
o adine ie ead cual (2.31) 
fe) x oR s 
AY 
s 
3 y uf 
ste le, ] 
ar Ne aaR s 
Vv 
d fe) %\ 
cs > L [9 +v 3, + e,D P| 
fe) x Ss 


av 
where here and in all subsequent analysis the x subscript will be dropped 


% 
from v, . Equation (2.19) can be expressed in dimensionless variables as: 
x 


An expression vy defined in equation (2.19),can be written in terms of 


dimensionless variables as: 


R, Ag cay uw (2.33) 
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203 Transformation of M.H.D. Equations to the Dimensionless Magnetic 
Flux Coordinate System 


The equations which define the magnetohydrodynamic model of 
Section 2.1 will now be converted to the coordinate system defined in 


Section 2.2. 


Pats PUN Continuity Equation 


By using the transformations indicated in equations (2.31) 
in equation (2.1) the following expression for the continuity equation in 


dimensionless magnetic flux coordinates is obtained: 
a + = 0 ! 
3. (N R ps R) oy NR a R) 3. (€,D NR a R) (2.34) 


All variables in equation (2.34) are dimensionless. For the sake of 


clarity the ~ over the variables has been dropped in this equation. 


2.3.2 Momentum Equation 


In converting equations (2.2) and (2.3) to dimensionless 
form the variable BS may be written in terms of B. and Re(ee xot yn (Lies 
and t are held constant, lines defined by R(s,x,t) and x define magnetic 


field lines. That is 
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or in terms of dimensionless variables 


av) 
d \ OR 
By ey OB ory (2.35) 
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it x Ss 
v Ny 
P=NT 


By using the above relationships plus the transformations given by 


equations (2.31),equation (2.3) transforms to 


Ra Pwias Niko 
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Nykpl ae N(d, + vo,+ €,D3,) vine R < 2G + qd) 
L t x Ss fo) dR .s 
fe) ~ 
s 
AU) 
B 23 1 ov 
a ae (2.37) 
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Ny 
s 
dB 2 
55 : 
where the term rea has been neglected since it is of order a smaller 
dB 
than ae and q is the appropriate expression in dimensionless variables 
r 


for the artificial viscosity. 
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~ 2 
(aR)? ce NA av)? tat) <0 
r 
aR s oR s 
nN a 
s s 
po a 
ly 
0 otherwise 


av 
where a. is a dimensionless constant between 1.5 and 2.0 and AR is the 
radial grid spacing in the numerical calculations. Equation (2.37) can 


be re-written as 


ui ik 2 
TOR GP +B paste (2:..38;) 
Ne, Ss 


+ = = 
(3, vey + ¢€,D 35) v 


Z 
where all variables are dimensionless and the v's have been dropped for 


clarity in this equation. 


The equation for axial momentum, equation (2.2), is converted 
to dimensionless variables in a similar manner. By using the transform- 


ations given by equations (2.31): 
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~u 
where a, is a dimensionless constant between 1.5 and 2.0 and Ax is 
the axial grid spacing used in the numerical calculations. Equation 
(2.39) can be simplified to: 


dR 


NGO: we : 
NCO, + vo +e Da.) a ark re (P+q,) + bE 3, (P+B ) (2.40) 


i 
where all variables are dimensionless and the v's have been dropped for 


clarity in this equation. 


2.3.3 Temperature Equation 


The temperature equation for either species (e€ = e or i for 


electrons or ions) in cylindrical coordinates is given by equation (2.4): 


dT dn Scoey RID CEL, aa) 
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Vee oy We lai V-Q + 
Ode Evdet ke € ay 
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ec k, ob ec k, jul 
where ¢' =e if ¢€ = a2 ed if e€ =e, one at On fee ae aly and Se = 1if e=e. 


The most difficult term to resolve in equation (2.4) is the 


heat flow term. In the evaluation of an expression for this term ¢ will 


be dropped in order to make notation less cumbersome. A technique by which 
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the heat flux in the radial and x-directions may be evaluated is to 
consider an orthogonal coordinate system which is aligned with the magnetic 


field as depicted in Figure 2.1. In this figure the unit vectors 


A a 


ey and Eo are defined as: 


aA a aA 


x cos6 + r siné 


@ 
i} 


“aA “a a 


- x sin8 +r cosé 


Then energy flow 


as 


due to thermal conduction can then be written as: 


a 


> a a —-> A 
oe k,,[9T ; e,] Qe, - Kiva) en] ey 


where k,, and ky are the thermal conductivities parallel and perpendicular 


i 


to the magnetic field respectively, and are expressed in units of 


[ergs/(sec eV cm)]. Other terms in the above expression can be written as: 


vr = 2 r+2ty 
VT : e, = = sing + a cosé 
VT ‘ e, = — COSoy = o. siné 
The heat flow 0 can then be d vided into a component in the radial 


“a 
“a 


direction, Q_r,and a component in the axial. direction, Q_ x 
r 


(2.41) 
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where 


Quay k1,[ 2, Tsind+3 Tcos6] sind - k,[3_ Tcosé-9 Tsin6]cosé 
(2.42) 


ae =- k, [9 _Tsin6+3_ Tcosé ]cosé+ k [8 Tcos8-3_ Tsiné ]sind 


The sine and cosine terms may be evaluated by considering Figure 2.2. 


If terms of order a are neglected, 


(2.43) 


Equations (2.41) to (2.43) can now be inserted into (2.32) to give an 


>> 
expression for (V-Q) in terms of dimensionless magnetic flux variables. 


>> >> 
In this step it is convenient to divide (V-Q) into two parts, WV-Q)44 


>> 
which is a term accounting for kay and (VEO); which is a term involving 


Rye 


> > > > 


VQ = (9-0), + WO), (2.44) 
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After some algebraic manipulation and dropping terms of order ey 
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The diffusion of a magnetic field through a plasma will 


lead to an ohmic heating of the electrons in the plasma. This is accounted 


for by the term nate in equation (2.4). An expression for this term is 


1 


evaluated below. 


> > 
where J is the induced electrical current, E is the electric field, and 


> 
v is the fluid velocity. From Ohm's Law and Maxwell's equations the 


above expression can be written as: 


where o, is the electrical conductivity perpendicular to the magnetic 


a 


> 
field. For solenoidal fields J has a component in the ¢$ direction only. 


If terms of order ae are neglected 


>> 
Using the above expression for VxB and the definition of E, given by 


equation (2.30): 
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The various transport coefficients that appear in equation 
(2.4) are converted to dimensionless values through the following 


definitions: 


Ve E rs 
me Neve R 
BeO.00 
€ € 1 
DET 
etlcay | 6 ea eal D (2.47) 
BO 0.50 
n Vv 
ia > 
eq eq Lo 
L 
Vv fe) 


If equation (2.4) is now converted to dimensionless magnetic flux 
coordinates with the aid of equations (2.44) to (2.47) and (2.31) the 


following expression is obtained. 


- ~ 9 + €,Dd N = 
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where all variables are assumed to be dimensionless and the v's have 


been dropped for clarity. 


2.3.4 Magnetic Field 


Rather than solve equations for the magnetic field as given 
in Section 2.1.4, it is more convenient to solve for a function closely 
~ 
related to R(s,x,t). The derivation of the appropriate equations will be 


found in Section 2.4. 


2.3.5 Laser Absorption and Propagation 


The dimensionless units that are defined in connection with 


the description of the propagation and absorption of the laser beam are: 
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With these definitions, equations (2.8) and (2.10) transform to the 


following two equations 
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where all variables are assumed to be dimensionless and the ~'s have 


been dropped. 
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Os Shell Equations 


The ion density, N, axial fluid velocity, v, electron and 
ion temperatures, T. and T; > and axial magnetic field, Bo are now 
approximated as constants between adjacent discrete flux coordinates 
that have been chosen for the radial grid. Thus the plasma is represented 
by a finite number of uniform co-axial shells, each with constant 
magnetic flux as depicted schematically in Figure 2.3. The plasma variables 
are now functions x,t, and the shell number which may be indicated 
by an integer subscript, for example, N (x,t), v,(%,t), etc. Shell 
subscripts will be omitted for the sake of clarity. In this approximation, 
the resulting difference equations are accurate to second order in the 
differences between adjacent flux coordinates when the values of the 


plasma variables are taken to be the values at the shell centers. 


The advantages of this scheme are two-fold. First, when 
radial pressure balance is assumed, it is a simple matter to decouple 
the coupled magnetohydrodynamic equations in each shell by using the 
constancy of the area inside the cylindrical wall which confines the plasma. 
This will be described later in this section. Secondly, the program may 
be used for quasi-one-dimensional calculations of high temperature devices 
by using a few shells when accuracy in the radial direction is not 
essential butwhere the effects of diffuse profiles and magnetic diffusion 
need to be considered. It should be noted here that if a coarse 
numerical grid in the radial direction were used in a model that did 
not employ a coordinate system in which one of the coordinates was aligned 


with the magnetic field, numerical diffusion would be a serious problem. 


The shell equations, or the magnetohydrodynamic equations 
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for each shell will be derived below. Since dimensionless variables 

are used exclusively in this subsection the v's over all variables are 
dropped. In these equations, V 92 denotes the difference between the 
values of a quantity 2 evaluated at the upper and lower boundaries of 

a shell. Values on a boundary can be calculated as linear interpolations 
or averages of adjacent shell values. The symbol <Q9> represents 

the average value of 9 inside the shell when 2 is not a simple plasma 


variable. 


2.4.1 Continuity Equation 


Multiplication of equation (2.34) by two yields: 


oN 2R3 .R) te dv N2R9 R) aR 9 _ Ce, DN2R9 _R) = 0 (250) 


This equation is now integrated over s from s. to s, where Sy is defined 
as the lower boundary of the s'th shell and ote is the upper boundary of 


the s'th shell. Since N and v are assumed constant over the integration 


the first term becomes: 
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is the area of the shell being integrated over. Similarly the second 


term in equation (2.50) becomes: 


Ss 
u — 
a Nvi f“ 2Ra Rds] = 3, (Av) 


3 


abl Got spy aes (aatensatb vont 
re eeidedtev iis asvo Kv * sale aoryt 
at? nnasas soawre tab ets soSeiaae 


tw eltabnuod sao fas vagy Bre sen 


6 


armel a ee teantt Bi bsansuciss ad ras 


asnenbxuyes <)> fodirye soft omut'nn, ifst 
a any iN 
rf 


aasgiy alosts m ton ab Ba Cres 


(neve) UO) a CAM EPENGL Ss Se aoa oni W) 
oF a 


Te 
, 


a 
ae =a 
e a ees pes ar 
ae | - —— 7 : = : 
= : —— . ,* 
—@ « ; : Tey = : 
_=9 


— 


bostist 2: 2 eiTsnw ey om, a neat @ geno" asd 


% 
to Vyabivod.3s0¢u S150 er. jesbis ist aye, 


aa a | ; 


solosvasan? 2i'9 re dat stasis yaad 


er 2 ; | es cy 
54 } 


Ss et ~ 18a & Ch 27 ae 


era 


pie fat hee 


oi 


uy? i ie - i 


With the use of equation (2.27) the last term in equation (2.50) can be 


written as: 


0, (e,D N 2R9 R) = o ( 


thus, 
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J“ 85 (e,DN2R8R) ds = ( 
L ip 


The following definitions are made. 


and 


where a subscript s denotes the s'th shell and the subscript (s + 1/2) 


denotes the boundary between the s'th and the (stl)'th shell. 


The continuity equation can now be expressed as: 
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It is noted that since the integration has been performed the continuity 
equation has become a function of the area A of each shell rather than 


s. The third term can be physically interpreted as a particle flux 
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across the magnetic field lines. 


2.4.2 Momentum Equation 


If equation (2.40) is multiplied by 2R0 R and the result 


added to 2v times equation (2.34), the following equation is obtained: 
2NR9 -R[9 + vo,+ €,ba |v + 2v[9. (NRO R)+ 3, (VNRO LR) 

2 

+ 9, (€,DNRO R) ] =- 2Ro JR d(erq) + 2R9 Rd _ (P+B ) 


The above equation can be written as: 


2 2 
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aR” 9 2 
= = 9 (P+B 
eo vas (P+q_) 2(R3_R) me ) 


If the above equation is now integrated over a shell s assuming that 


N, v, P, and B are constant over the shell it is found that: 


¢) c) 2 DNS 2 One ee Cae 
oT [NAv] + cs [NAv ] + A(e, Gar ) = A cm [P+q,] 


2 
=o <3 (R’) > A(P+B") 


If the derivatives on the left hand side are expanded and use is made 


of equation (2.51) the following equation is obtained. 
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where 
€,DNv 
G = os = 
Ss ( B ) 41/2 Vg4+1/2 “ (2.53) 
2.4.3 Temperature Equation 
Equation (2.48) can be expressed as: 
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For the remainder of this subsection the right hand side of the above 
equation will be referred to as RHS. The above equation is multiplied by 


aye 2 Rate to obtain the following: 
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From the continuity equation: 
1-y Ril = 
TN [3 (2NR9 .R) + 3 (2vNR3 LR) “fr 9, (Ze DNR | )] 


By adding the last two equations the following equation can be obtained. 
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If the above equation is integrated over a shell s, noting that N, v, T, 


and B are constants over a shell the following equation is obtained. 
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The variable I, is defined as: 
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Now, by expanding derivatives the above equation can be written as: 


(1-y) (1-y) 
Nv? T.[8, (NA) + 8, (NAV)] + NA[a, + vd] (N Ts) 


S) 
+ bea ne aR wt-Y) (pHs) ds 


Si 


A value for the first term in brackets may be obtained from equation 
(2.51) and is equal to -AF. By using this expression and dividing the 
above equations by an (L-Y) and evaluating RHS, the following equation is 


obtained: 
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The third term on the right hand side of equation (2.56) 
represents diffusion of heat across the magnetic field while the fourth 
term represents heat flow along the field lines. 


2.4.4 Closure of the System of Equations 


Equations (2.51), (2.52), and (2.56) describe four dynamic 
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equations for five plasma variables, namely N, v, T.> T;> and A. To 
complete the set of equations, an equation for A must be derived from 

the equations describing the radial dynamics of the plasma. That is, 

an equation for dA/dt is required. If the time scale over which effects 
occur is much longer than that required for a magnetosonic wave to travel 
across the plasma, then the assumption that pressure balance exists is 
valid. In this case, any pressure imbalance is communicated sufficiently 
rapidly across the plasma column so as to insure that pressure balance 

is essentially being maintained. This assumption would apply to physical 
situations like that of a long reactor plasma. In the case where a 
plasma is rapidly heated by a laser, causing both radial and axial shocks, 
full radial dynamics must be included. The computer program has been 
developed so that two options exist, namely that of using full radial 
dynamics or that of pressure balance. The assumption of radial pressure 


balance, where it is valid, leads to considerable savings in CPU time. 
2.4.4a Radial Pressure Balance 


In this subsection radial pressure balance is assumed in the 
derivation for an expression for 3A/3t. For this case equation (2.38) 
for v._ is not used. The assumption of radial pressure balance is 
r 


expressed as: 


S (P+ Be) = 0 or porune = Gey) (2.58) 
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where (x,t) is the total kinetic plus magnetic pressure and is not a 
function of s. If ¢ is the magnetic flux in a shell, then B = $/A 
where » is a constant in each shell. By using this expression for B in 


equation (2.58), and differentiating with respect to time yields: 
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a or hem Oxy) 
A 
or 
2 
A(3,P) = 2 B’(Q,A) + A(3,7) (2.59) 


Now the temperature equation can be expressed as: 
= (y- + 
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Combining this with the above equation yields: 


A(3P) a YTA (3 .N) =H (2.60) 


The continuity equation is used to define C as: 


Gr = 0 (NA) == [3 (NAv) gine sa 


or 


a{ 
oN [ N 3 AT/A 


Substituting this into equation (2.60) yields: 


A(8,P) = H+ yT[C - N(3,A)] (27,6) 


Comparing equations (2.59) and (2.61) yields an expression for 3A. 
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Before equation (2.62) can be used an expression for a.7 must be derived. 
This may be done by noting that the total cross sectional area of the 


solenoid is a constant. If equation (2.62) is summed over all shells. 
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H+. vic 
(0.7) = ) a / —+~— (2.63) 
All Shells 2B) + yP All Shells .2B° + yP 


4b Full Radial Dynamics 


In this sub-section an expression for 28 is derived by 


using the appropriate equations to incorporate full radial dynamics 


into the model. First an expression for ees) is found. It is then 
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a trivial matter to find an expression for =. In order to obtain an 


dt 


equation for rie equation (2.19) is multiplied by 2R. The resulting 


equation can be written as: 
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third term in the above equation can be reduced by expanding D through 


use of equations (27.29) and (2.27). 
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The solution to equation (2.64) requires an expression for Rv. 


An equation for Rv. can be found as follows. Note that 


Thus, 

dv 
d uy 2 r 
N Ae (Rv_) = Nv. + NR TE 
dv. 

An expression for ead is given by equation (2.38) so that the above 

expression can be written as: 
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An expression for D is required for equation (2.65). By using equations 


(2-29) and (2.27),)D can be written as: 
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2.4.5 Summary of Shell Equations 


In this sub-section the shell equations are summarized 
and written in a form suggestive of how they might be solved through 
numerical techniques. In this sub-section the notation 0 and. 0" “wild 
be used for seas and oo respectively. The first step is a solution 


for the area, A,» of a shell. 


If radial pressure balance is assumed equation (2.62) is 


used. 
rs H + is - A t(x,t) (2.68) 
25 cr YP 
where 
e i A =>) 
Piel ae au = (2.69) 
All 2B ave All 2 Bie YP; 
Shells Shells | 
and C = - (NAv)' - AF (GAT AOD) 


If full radial dynamics are used an equation for A comes 


from W defined on shell boundaries where 


- (2.71) 


= 
Ww 
od 


From equation (2.67) 
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and from equation (2.64) 


e 2 92 
Wem, hcl + 26, WB OW (2.73) 


as 


where 
U=RV (2°87 45) 


U can be found through a solution to equation (2.65) which can be 


expressed as: 


2 
St, nee Uses 2BW 2 
U vu cD a sUii er eee eis) 
e,N 


Once A has be found, N can be found through solution of 


the following equation, which comes from equations (2.51) and (2.70): 


a tceauNN) 
Niet ees (2576) 


Now the temperature equations can be solved. With the new 


notation equations (2.56) and (2.57) can be written as: 


° x . 
= ~ PET | 
T.. H. a 814 + (y-1) T. N/N ( ) 


where 
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a ' te : os Ebest (y-1) 
H. Vv T. + (y-1) T. v N'/N NA [N AI - T. AF J 
(2.78) 
i ToL ) (y-l)e 
e € € 2 1 2 
+ (¥- 1) SRT cit, aaa TR 38) 
eq Ss 
(y-1) € ub 
TWAS lle ps oe 
wa SE@R ky 3 SR a5 Oe! 
and 
= eye) € 17]! 
851 NA [A kad Ti] WATE: 


Finally, the axial velocity can be found. Equation (2.52) 
can be expressed as: 


<W'> 


2 
NA ACP + B’) 


ene yma ee — was ' 
Vv VV: NA [ AG v AF] x [P + q,. + 


(2.80) 
This set of equations requires the evaluation of Fo» Ty; 
and Ge on shell boundaries. From equation (2.66): 
Di). 2 
Rion DA aeislatrs Wa | 
Substituting this into the definition of F 
f= 2R> €,N 35 (2.81) 
s 2 Ss 
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A computer model of a plasma in a solenoidal magnetic 
field can be made through the numerical solution of the coupled equations 


presented in this sub-section. 
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apis Numerical Solution 


A computer simulation based on the shell equations of 
the previous sub-section has been developed. The main computer routine 
of this simulation solves the appropriate difference equations which have 
been written in dimensionless units. As the solution is advanced in 
time the internal variables of the routine are output on magnetic tape 
or disk. This is essentially the only output of the main routine. 
Subsequently, post-processor routines read the output of the main 
routine and calculate values for various plasma parameters in a more 
familiar unit system. Different post-processor routines have been 
developed to print out values for plasma parameters and perform checks 
on the validity of the simulation. Two checks that are done to test 
the validity of a simulation are conservation of energy and conservation 
of mass. These will be discussed later in this section. In addition 
to these post-processor routines two graphics routines have been 
developed. One of these routines plots various two-dimensional plots 
of plasma parameters as functions of x, r, or t. The other makes three 
dimensional plots of various plasma parameters as functions of x and r 
at given times. Examples of output from these routines will be presented 


in chapters three and four. 


An attempt has been made to make a package of programs 
that will allow a user with emir ned familiarity with the programming 
details to solve a variety of problems with little effort. Various 
options have been built into the routines and desired options are specified 
in an input file. A more detailed description of the routines and some 


details of the numerical techniques can be found in Appendix A. 
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The shell equations have been solved using a two-step 
second order Euler method. In the first step, the solution at t is used 
to calculate temporary values of the variables at t + At/2. These 
temporary values are used to calculate the coefficients and spatial 
derivatives in the equations and the solution is then advanced from t 


to t + At in the second step. 


Central differences are used to calculate all spatial 
derivatives. The continuity and axial acceleration equations are advanced 
explicitly. When radial pressure balance is assumed, the equation for 
<4 is also advanced explicitly. However the decoupling procedure used 
to find S* is similar to an implicit scheme in the sense that changes in 
the central pressure due to heating are felt instantly in all the shells. 
When full radial dynamics are taken into account, the radial acceleration 
equation is solved explicitly but the shell boundary equation for W, 
equation (2.73), is solved implicitly. This is necessary since large 


magnetic diffusion in regions of low electron temperature severely limits 


the timestep of an explicit scheme. 


For each timestep, the temperature equations are advanced 
in two stages. In the first step, parallel heat conduction is turned off 
and the equations are advanced using implicit differences for the 


perpendicular conduction terms. The difference between the new and old 


oT 
values of T.. is taken to be the contribution to — = At from perpendicular 


dt 
conduction. This quantity is substituted for the perpendicular terms 
in the second stage in which the equations are advanced using implicit 


differences for the parallel conduction terms. 
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The boundary conditions used at the outer wall are ve = 0, 
oT 
W = constant, and so = constant or ae 0. At the open ends, the 


plasma variables are assumed to vary linearly with x. The exception 
oP 
to this rule is that 3x tS set equal to a constant in order to get the 


flow started at t = 0. The results are insensitive to the particular 


value of OE no een: 
ox 


The code was tested in several ways. Axial flow without 
heat conduction was compared to analytic similarity solutions from a 
one-shell model kxiet heat conduction was tested by freezing the 
plasma (v=0, N=N.) and assuming a constant conduction coefficent for 
which an analytic solution is easily obtainable from reasonable initial 
conditions. In both cases, excellent agreement was obtained. The full 
radial dynamics under axially uniform laser heating was compared with 
results from a one-dimensional code described by Burnett and Offenberger-/, 


Essentially identical results were obtained. 


A check on conservation of energy and mass is made for 
each simulation. This is done by calculating total internal energy 
or mass of the plasma at various times and comparing changes in internal 
energy or mass with the calculated energy or mass flow through the 
solenoid ends. Typically the simulations conserve energy to better 


than 5% and mass to better than 12. 


A more detailed description of numerical techniques are 


presented in Appendix A. 
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Figure 2.1 Orthogonal coordinate system 
aligned with magnetic field. 
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Figure 2.2 Angle of magnetic field lines 
relative to solenoid axis in 
magnetic flux coordinate system 
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Figure 2.3 Cutaway of plasma column showing 
shell structure 
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CHAPTER 3 


Computer Simulations of Plasma in a Solenoidal Magnetic Field 


In this chapter some results from the computer program 
described in the previous chapter are presented. The versatility. of the 
code is demonstrated through the simulation of short solenoids (5 cm 
length) in Section 3.1, intermediate length solenoids (1 m length) in 
Section 3.2, and long solenoids (1 km length) in Section 3.3. A comparison 
of a simulation in which full radial dynamics have been included to 
a simulation that assumes radial pressure balance is presented in Section 
3.1. Radial pressure balance is assumed for simulations in Section 3.2 
and Section 3.3. The parameters used for the simulations in Section 3.2 
were chosen to test the feasibility of creating plasma conditions ideally 
suited for the beat frequency mixing of antiparallel laser beams in a 
laser heated solenoid. The required plasma conditions will be discussed 
in Chapter 6 where the results from Section 3.2 will be referred to. 
Results of Section 3.3 demonstrate the ability of this type of code to 


simulate the magnetohydrodynamic behaviour of a 1 km solenoid reactor. 
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Sad Laser Heated Solenoid 


In the first simulation, a preionized hydrogen plasma of 


radius 1.5 cm is heated by a CO, laser with Gaussian cross-section and 


2 
half-power radius 1.77 mm. The laser power rises linearly from 0 at 
t=0 to 100 MW at t=10 nsec and then remains constant. The initial 


plasma variables are: 


B = 100 kgauss 


The parameters were chosen to be the same as those used in an experimental 
and theoretical study by Scudder et ite with the important difference 


that their plasma was formed by the breakdown of neutral gas by the laser. 


The code was run with 60 axial points and 30 shells until 
t=0.5 usec was reached. This run required 20 minutes of CPU time on an 
Amdahl 470 V/6. The size of each timestep was limited by the hydrodynamic 


stability condition, 


At < bc/V 
ma 


where A r is the shell thickness and veg is the magneto-acoustic velocity. 


: ei V V 2 
Three dimensional plots of To» T 5M» mx and 2. are presented in 


Figures 3.1 to 3.6. In each plot, the lines joining the plotted values 
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of the plasma variables are drawn at a constant axial or radial position 


so that linear interpolation between shell values was necessary. 


The electron temperature attained, 40-45 eV, is similar 
to those calculated by Scudder et elds in a two-dimensional Lagrangian 
simulation. The ion temperature distribution is almost identical to 
that of the electrons since the collision time is short compared to the 
heating time at these densities. The temperature plateau behind the 
bleaching front is apparently due to adiabatic cooling which follows 


expansion of the heated plasma. 


The most significant difference between this simulation and 
that-of Scudder et al. is the nature of the plasma dynamics at the 
bleaching front. They have found that after t=140 nsec the laser driven 
shock on the axis attenuates and has disappeared at t=280 nsec. Figure 
3.3 indicates, however, the presence of a strong shock at the bleaching 
front at t=500 nsec. (The jagged edge on the curved shock front is a 
plotting routine effect.) The shock wave calculated by the shell code 
has been found to propagate more as a travelling wave rather than a damped 
wave. The discrepancy between the two codes may be due to the different 
methods of calculation of the laser beam propagation. Scudder et al. 
assumed that the propagation was parallel to the axis so that the rays 
in the outer edges are always in a region of higher absorption than those 
in the center. The effect was that the beam became progressively narrower 
as it propagated through the plasma. Eventually, the heated region at 
the bleaching front may have been too slender to drive a forward moving 


shock wave. On the other hand, since the shell code assumes a constant 
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beam radius, the heated region always has the same width. To get a 
more accurate picture of the dynamics at the bleaching front, a better 


laser model will have to be developed. 


The radial velocity distribution is plotted in Figure 3.4. 
The interesting points are that (1) the velocity is small compared to 
the magneto-acoustic velocity so that not much energy goes into radial 
motion and (2) the radial velocity quickly becomes negligible after the 
passage of the region of fast heating indicating the return to radial 
equilibrium. These observations suggest that similar densities and 
temperatures will be obtained if the plasma is assumed to be in radial 


pressure balance at all times. 


The computer simulation was repeated with all of the same 
input parameters as above, except that radial pressure balance was assumed 
and the number of shells was reduced to 15. Three dimensional photos 
of T.> T, 505 ve and B. are presented in Figures 3.7 to 3.11. The 
temperatures attained are very similar in the two runs. The densities 
are also similar, especially in the quiescent region between x = O and 
x=3 cm. The main differences with pressure balance are that (1) the 


bleaching wave propagates about 10% farther in 500 nsec and (2) the 


amplitude of the shock is smaller. 


The advantage of assuming pressure balance is the significant 
reduction of computing costs. The run with pressure balance required 
about 6 minutes of CPU time compared to 20 minutes for full radial dynamics. 
This reduction of computing time is possible because the timestep is not 
restricted by the hydrodynamic stability condition when radial pressure 


balance is assumed. The criterion used for limiting the timestep in this 
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run was that the temperature should not rise by more than 30% at any 
point in a single step. The assumption of radial pressure balance leads 
to even greater savings in modelling longer devices and when a laser 


beam bleaching front is not pushing a shock wave. 
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SZ Production of Long Scale Length Plasma for Beat Frequency Mixing 


In Chapter 5 a theory for the beat frequency mixing of anti- 
parallel laser beams in a homogeneous plasma will be presented. In 
Chapter 6 the possibility of using this process to create a useful 
amplifier of infrared radiation will be examined. The possibility of 
making such an amplifier is dependent on the feasibility of creating a 
hot plasma with a uniform density and temperature in the axial direction. 
In this section computer simulations are used to examine the feasibility 
of creating such a plasma through the inverse bremsstrahlung absorption 
of laser radiation in a plasma radially confined by a solenoidal magnetic 


field. 


Results from two simulations are presented. The input par- 
ameters for both simulations are identical except for initial plasma 
densities. In both cases a preionized hydrogen plasma is assumed to be 
contained by a solenoid of radius 1.5 cm, length 1 m, and is heated by 
a CO, laser with Gaussian cross-section and half-power radius of 1.77 m. 
The laser power rises linearly from 0 at t=0 to 1 GW at t=10 ns and then 
remains constant. Initially the temperature, density, and magnetic field 
are uniform. The temperature is assumed to be 1 eV and the magnetic 
field strength is assumed to be 100 kG. The computational grid consists 
of 30 axial points and 15 shells. Under these conditions the code 
requires approximately 1 minute of CPU time on the Amdahl 470 V/6 computer 
to simulate the plasma for 1 usec. 

In the first simulation the initial plasma density was 
Beale cme Figures 3.12 to 3.14 are three dimensional plots of 
of WSO REE bas | n, at t=0.5 usec. Figure 3.15 is a plot of the axial values 


e al 


of T., T. and n_ as a function of x. These figures show that the axial 
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values of the plasma temperature and density show little variation 
down most of the column length. For about 80% of the solenoid length 
the plasma density is almost exactly sea gare while electron 
temperature varies from about 95 eV to 100 eV and the ion temperature 
varies from about 67 eV to 71 eV. It will be shown in Chapter 6 that 


such plasma conditions are ideally suited to the beat frequency mixing 


of antiparallel electromagnetic beams with wavelengths of 9.6 um and 10.6 um. 


The uniform plasma density and temperatures in the axial 
direction can be attributed to two main factors. First, the high laser 
powers and low initial plasma densities lead to high laser bleaching 
velocities. In the above simulation the laser has bleached its way 
through the plasma column in less than 40 ns. This leads to a relatively 
uniform laser heating rate down the column axis. The second factor leading 
to uniform axial profiles is the large electron thermal conductivity 
in the axial direction which tends to smooth out any nonuniformities. 

In the second simulation the initial plasma density was 
chosen to be 3x107/ com>. This is a much higher initial density than 
that of the previous run. Consequently a much lower bleaching velocity 
is expected. It was found that it took about 300 ns for the laser beam 
to bleach its way through the solenoid. Because of the slower bleaching 
velocity, the plasma must be heated for a longer period of time for its 
axial parameters to become uniform. Figures 3.16 to 3.18 are three 
dimensional plots of eee and ny after 1 usec of 
laser heating. Figure 3.19 is a plot of the axial values of T,> T, > and 
n, as a function of x. These figures show that the plasma has a density 


ily 


of between 2.4x10"" and -2.5x10 Ley an electron temperature of 


between 120 and 180 eV and an ion temperature of between 100 and 140 eV 


athwel yodse?, bees dct i Shey pinata igi ihaesiitarahice 


gecreries sinatt ath vn 


dagiet biswetow sit ab me nots x98 


“i 


wmasaato olndw a 5 Maisie vite sb ac 
naan eatey: bats ‘baw 9905 03 wea 


® ype yes x fiw +t . 


air 1.37 Gite 


SisarpAet t juan oii3 “4 bagt x ue rt 
CL. on ou ov" Te Shae terew Care nied : 
ree << | ASO 


‘hime an? ab epapisradked hab-yateaetaes 


ere: iW J ; 
ret re: oe ; Pao. Ke 
ions tyie snd. ett ‘waxeroes. ae am: ie 
_— fs 7 
Bis [hia XRaA a Bs Wt bees SS09 fer ete as 
’ “2 s ae : ’ 


vievisete: soy abadi «2d oa Ok pield, seek ‘teeiahasteole 


yitvirscoboo) lacret aozecsle spel adie af rastrion Laban 


-Jiatnvrnodtiuencs tye 406 Raguee oo asic gale 


. _ 


mead Sek. avigesad on ree jad Fh Rh Ke ait 23 

prisons td sent it 3 aight | puesto a hig ‘pn 

alk 167 -sgha-3e +fl5a oe eae! a : ut hd smo sonal 

Ssint Sx $f. . ot ME 
¥6 Bee i ee tee 

DAB. 4 pS nagt 39 poulew’ Sadag alt it aera 


iter  a6n saint pu, paler 


ey 


a 


63 


over an 80 cm length of the 1 meter solenoid. While these parameters 
are not as uniform as those in the previous simulation it will be shown 
in Chapter 6 that this plasma would serve very well as the mixing 
medium for antiparallel radiations with difference frequencies close 


to the ion-acoustic frequency. 


The results of these simulations suggest that a laser heated 
plasma, radially confined by a solenoidal magnetic field, will have a 
uniform axial density and temperature profile at a time t after the laser 


Hs turned on if: 


where Ly is the solenoid length, v is the bleaching wave velocity 


bl 

and ee is the acoustic velocity. The relation Lo! %b1 << t allows 

laser energy to be deposited uniformly along the solenoid axis while 

the relation t << L/y ensures that the effects of end loss are experienced 
ac 


only near to the solenoid ends. The above relation can obviously be 


satisfied only if the laser intensity and plasma density are such that 
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Sa 6-Pinch Reactor 

The magnetodydrodynamic behaviour of a 1 km 6-pinch reactor 
in radial equilibrium was simulated with a 10 shell model and 60 axial 
points. The initial density and temperature profiles were taken to be: 


4x10-! nko 


Mo (r,x) = 1 + exp((r-1.5)/0.15) 


and 


5000 eV 


Pee SU eM eens (Tso OTTO .10) 


e 
The external magnetic field was set at 405 kguass corresponding to a 

value of 8 = 0.98 on the axis and the magnetic field in each shell was 
calculated assuming radial pressure balance. Symmetric boundary conditions 
around x=500 m were assumed. There was no external heating and a particle 


effects were not taken into account. 


The results for two times (0.5 ms and 2 ms) are presented in 
Figures 3.20 to 3.29. Because symmetry is assumed around the point 
x=500 m, MHD quantities are only plotted in the region defined by 
O0<x< 500 m Figures 3.20 and 3.25 show the radius of the shell 
boundaries used in the numerical calculations as a function of x. These 
shell boundaries can also be thought of as magnetic flux lines. In the 
remaining figures three dimensional plots of Tm,» vy? and B.. are 
presented. The ion temperature is almost identical to that of the elect- 
rons and has not been plotted. At t=0.5 ms, the effects of self-mirroring 


are clearly evident in Figure 3.20. Figures 3.22 and 3.23 for the 
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plasma density and velocity show that the greatest loss of shell mass 
occurs between 1 and 2 cm off-axis. This is in agreement with a 
he: 


theoretical one shell mode which predicts that the mass flux at the 


end is proportional to (1-g)2/2 ms . This function reaches a maximum 
for r > O since 8 and T, decrease off-axis. It is also observed from 
Figure 3.23 that the effects of the open ends propagate faster in the 


region of lower 8 as expected from one-dimensional theory. 


At t=2 ms, the effects of the open solenoid ends have reached 
the midplane in all shells and 72% of the mass has flowed from the end 
of the reactor. Figure 3.25 shows how the shell boundaries, or magnetic 
flux lines, have moved in towards the solenoid center as the plasma flows 
out the ends. Figure 3.26 shows that adiabatic expansion has led to a 
decrease in plasma temperature from 5000 eV to about 3200 eV. Figure 
3.27 shows that while 72% of the mass has flowed from the reactor ends, 
the on axis density has only decreased by about 12%. This is because, 
as the mass flows from central portions of the reactor, the magnetic field 
compresses the plasma radially towards the center. This effect could be 
important since the thermonuclear reaction rate is proportional to no 
The velocity distribution function, Figure 3.28, as a function of x is 
found to be very nearly linear in all shells as suggested in the one shell 
theory of McMullin and Capi actus Figures 3.24 and 3.29 illustrate 
how the magnetic field fills the central portion of the solenoid as the 


plasma flows out. 
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CHAPTER 4 


A Computer Simulation of Gas Target Experiments 


Laser-induced parametric instabilities in gas target 
plasmas have recently been studied experimentally by A.A. Offenberger 


1S e/a 


Sai ws and J.J. Schuss et ralhces Three main advantages of using gas 


targets over solid targets for the study of laser-induced parametric 


instabilities can be summarized from apaper by A. Ng Cs, alae 


1) The 
nonlinear interactions can be studied at controllable plasma densities 
which can range all the way from critical to well subcritical. 2) Non- 
linearities in underdense plasmas may not be obscured by a critical 

layer as in solid target experiments. 3) The relatively long character- 
istic scale lengths in gas target experiments (as compared to solid 


target experiments) make spatial and temporally resolved diagnostics 


more accessible. 


In this chapter some results from two dimensional hydrodynamic 
simulations of CO, laser heated gas target plasmas are reported. These 
models can be a valuable supplement to experiments since they give 
detailed predictions for the spatial and temporal profiles of the various 
hydrodynamic variables calculated. Since these quantities are very 
difficult to measure with good spatial and temporal resolution the 
Simulations can be very valuable in the interpretation of experimental 
results. An attempt has been made to make the simulations correspond as 
closely as possible to the experiments of A.A. Offenberger et pl eee 


The experimental details of this gas target can be found in the paper 


by A. Ng et al.**, 
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4.1 Computer Model 


The computer routine used for these simulations has been 

described in Chapter 2. This program was developed for the purpose of 

modelling the magnetohydrodynamic behaviour of a plasma with an imbedded 
solenoidal magnetic field. For reasons described in Chapter 2 the 
appropriate MHD equations are solved in a moving coordinate system 
defined by magnetic field lines, consequently the routine will only 
model a plasma with an imbedded solenoidal magnetic field. However, 
in the gas target experiments no magnetic field exists. This problem 
is easily overcome by setting the solenoidal field to a sufficiently 
small value that it has essentially no effect on the plasma dynamics. 
Also, since the routine works best for (B_/B) small, where BE is the 
magnetic field in the radial direction, and B. is the magnetic field 
in the axial direction, the electrical conductivity in the model is 
artificially set to a small value so that movement of the field lines is 


small and the factor (B/B.) remains very small. 


In the simulations the laser beam intensity is assumed to 


be of the form: 


2 


Loeysey = oy exe ee | (4.1) 
270 (x) 20 (x) 


where P(x,t) is the calculated total laser power. P(x,t) is calculated 
through a numerical solution to equation (2.10). The beam width is 
defined through the parameter 0 (x) which has been defined to reflect the 
beam focussing in free space. Refraction of the beam by the plasma has 
been neglected in the present model. The parameter aes has been set to 


conform to the optics of A.A. Offenberger et al. j; 
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(4.2) 


where 5 gives the beam radius at the focal spot, f is the f number of 


the optics (which is set to 2 for these simulations), and L specifies 


3 


the position of the focal spot. The laser power input, as a function of 
time, is assumed to be Tt, sec long and of triangular shape. The pulse 


starts at zero power, reaches peak power Po ine 2 tT, secs and falls off 


to zero again at tT, sec. 


In these simulations the appropriate differential equations 
are solved numerically in the cylindrical region defined by the following 
three boundaries: r = Ro x = Lo» and x = Q. The initial density profile 


is assumed to be defined as: 


L, -x 


an £, iE -1 
eee t=O) = N,[ 1 + exp ( ae 


where Ly defines the position at which the density rises to half of Ny 


and 4 defines the scale length over which the density rises. 


For these simulations an attempt has been made to place the 
boundaries sufficiently far away from the region of interest that the 
boundary conditions do not play a significant role in the evolution of 
the solution.;> Im fact Ro and Ly are sufficiently large that no plasma 
motion reaches these boundaries during the simulations. This is not true 
however for the x=0 boundary. Here we make the boundary condition that 


oe 0) with two exceptions. 1) Thermal 


: 2 
all quantities are linear (3 /9dx 
conductivity is set to zero at x = 0. This is reasonable since there is 


only a small amount of plasma in the region x < 0 to absorb the heat. 
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2) oP/dx = C where P is the plasma pressure (Nk, (T + T,)) and. C.is:a 
pre-set constant. We find the solution is very insensitive to the value 


of C chosen. 


In this chapter results from four different simulations are 
presented. The input parameters for the computer program are specified 
below. For all the simulations the plasma is assumed to be pre-ionized 
with an initial temperature of 1 eV. All of the simulations assume 
i = peoae mnie and A = 0.0145 cm. These two parameters lead to the 
initial density profile rising from 3% of N ac (Ly - 0.05) ecm to 97% 
of ny at (Ly + 0.05) cm as illustrated graphically in Figures 4.1 and 

18 =e 


4.2. The initial plasma density of 9x10 cm is just below the critical 


density for 10.6 um wavelength radiation from a CO, laser. Other input 


2 
parameters for the four simulations are: 
Simulation #1 Pe = 0.1GW, L, = 0.2cm, ote 0.0125cm, 
Lo oe, 0... 5cm sp Rn a0. oem. eee OeCMop andy t= Poem eer 
38 fe) fo) L 
Simulation #2 By = 1.0GW, L, = 0.2cm, Oni 0-0125.cms. 
L420. .15cm,: oky 2E0. o¢cm; Lo = O.7cm, and Tt. = HOenawsee 
zt fo) fe) L 
Simulation #3 Ee = 1.0GW, L, = 0.3cm, ota 0.0125cm, 
cL = 0.15cem, Ro7="0o5em, Eo On /cm. ang. it. = AOOn see 
1 fe) fo) ie 
Simulation #4 ae = 0.3GW, L, = 0.2cmn, pe 0.0035cm, 
te f=, 0.05em; Ro =0. oem, ln =207.3cm, «and: TT. = BORO eee 
1 fo) fe) L 


In the first three simulations an attempt has been made to 
match the experimental conditions of A.A. Offenberger et al. when a 


Stable resonator was used on the CO. laser. When an unstable resonator 
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was used the angular divergence of the output beam was somewhat smaller. 
This leads to a smaller laser beam radius at the focal spot. In 
simulation #4 om has been set to 35 wm to see what effect this may have 


on the hydrodynamics. 


In all of these simulations a two-dimensional computational 
grid consisting of thirty radial shells and sixty axial points was used. 
The small value of 0, in simulation #4 leads to very high laser intensities 
and therefore very high heating rates in a very small region in the 
vicinity of the focal spot. Because of this a finer computational mesh 
is needed for this simulation. This is achieved by making the region 
of solution smaller (smaller values of L, and Ri? and concentrating the 
shell structure near the solenoid axis. That is the shell spacing is 
smaller for r close to zero than it is for r close to Ro: The first 
three simulations ran with a timestep size of close to eI sec and 
required approximately 20 minutes CPU time on the Amdahl 470 V/6 computer. 
Simulation #4 had to be run with a much smaller timestep size (down to 
ei 0G sec as the laser beam bleached through the focal spot) and 


required a total of 70 minutes CPU time. 


The peak laser intensity in the 4'th simulation is much 
higher than in the first three simulations due to the smaller value of 
oo: This can be very desirable for the experimental investigation of 
laser-induced parametric instabilities, however, it adds complications 
to the simulation of the hydrodynamic expansion since ponderomotive forces 
now become significant. Following the derivation of henge the ponder- 


omotive force can be expressed as: 
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where Ww) is the frequency of the laser beam, I is its intensity, and Cy 


its group velocity. The ponderomotive force is added to the hydrodynamic 


model by adding the term: 


2 
Fie es es oy “pe er saallys 
r 2 Zz or c 
Wa i 


to the right hand side of equation (2.3). The appropriate modifications 


have been made to the code for simulation #4. 
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4.2 Results 


The results of these simulations are summarized graphically 
in Figures 4.3 to 4.30. The plots are of three types. (1) At a specified 
time three dimensional plots of the hydrodynamic quantities 
(TL Ty, no? Vy and ety are plotted as functions of r and x. (2) At 
the same time the laser power P(x) and the axial laser intensity I(o,x) 
are plotted as functions of x. (3) The values of Ty: T,; and no at 
the laser focal spot are plotted as functions of time. 


In the three dimensional plots the density peak in the 


shock fronts has been limited to values of less than 2x1027 ¢m7> in order 


1 = 
to make scaling convenient. This is achieved by setting n 5 tow Zxto een 3 


if it exceeds puis bare in the plot routine. 


The three dimensional plots of plasma density all show a 
"hole" in the density profile around the region of laser heating. A 
strong axial shock is seen to propagate just in front of the laser beam, 
and strong shocks are also seen to be propagating in the radial direction. 
The radial shocks propagate outwards with a velocity of about Patoe cn ger 
when the peak laser power is 0.1 GW and at about 6 Beto teniece when peak 
laser power is 1.0 GW. The velocity of the axial shock is seen to be 
dependent on the laser beam width but a typical shock velocity of about 
15210" em/sec is found for the case of the 0.1 GW laser. The higher 
powered laser beam is seen to push the axial shock at a higher velocity 


of between 10! and 2x10/ cm/sec. 


Plots of the density profiles show a hump in the region just 


behind the shock wave. The formation seems to be dependent on the beam 
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width as indicated by the fact that it is found to develop later in the 
third simulation, where the laser is focussed further into the plasma, 
than it does in the second simulation. The fact that the hump is spread 
over about seven axial points is an indication that this feature is real 


and not due to the discrete numerical model. 


An important feature of gas target experiments is the long 
characteristic scale lengths over which hydrodynamic quantities vary 
significantly. Density plots show that at 20 ns the ene ty changes by 
50% over axial distances of about 0.05 cm or radial distances of about 
O.1 cm for the 0.1 GW laser. For the simulations with the higher powered 
lasers both the radial and axial scale lengths are doubled. Character- 
istic scale lengths for both T, and T, are considerably longer than for 


density. 


The temperature plots show that electron temperature rises 
very rapidly to its maximum value in the region just behind the axial 
shock. This can be explained by the high laser absorption rate in the 
high density region at the back end of the shock. Further back the laser 
heating rate is reduced by the lower densities and higher electron 
temperatures, and must compete with the cooling effect of adiabatic 
expansion. The ion temperature profile is similar, although the ions 
remain considerably colder than the electrons. The ions are heated 
rapidly in the high density region just behind the axial shock due to 
electron-ion collisions. The subsequent adiabatic expansion causes the 
ions to cool somewhat in the region behind the shock. Typical electron 
temperatures of 40 to 50 eV and ion temperatures of about 30 eV are 


achieved in the first simulation with the 0.1 GW laser. The second sim- 
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ulation shows that increasing the laser power by a factor of 10 leads to 
an increase in typical electron and ion temperatures by a factor of about 
two. Increasing the laser power by a factor of ten leads to a large 
change in the volume of the plasma heated rather than making a large 
change in the plasma temperature. The third simulation, where the laser 
is focussed further into the plasma, shows significantly higher electron 
temperatures can be achieved in the region of the focal volume if the 
laser beam is focussed sufficiently far into the plasma to cause an axial 


shock to be driven through the focal volume. 


The plots of laser power versus x show that the beam power 
is fairly constant up to the shock wave. This shows that almost all of 
the laser energy is being absorbed in the high density region at the 


back of the axial shock. 


A knowledge of plasma fluid velocities can be important in 
the interpretation of experiments since the fluid velocity can lead to 
a doppler shift in the frequency of plasma light emission. The axial 
velocity plots show typical axial velocities in the focal volume of about 


10’ cm/sec. 


The plots of To» T,, and n, as a function of time provide a 
summary of how the values of these variables in the focal volume change 
over the duration of the experiment. It is seen that for the simulation 
with the 0.1 GW laser the electron temperature in the focal volume rapidly 
rises to 55 eV, and then slowly cools to 40 eV at 30 ns. The ion 
temperature, however, rises rapidly to 30 eV and maintains this value 


throughout the time of the simulation. The ion heating, due to electron- 
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ion collisions, is presumably balanced by the ion cooling, due to 
adiabatic expansion. Increasing the laser power by a factor of ten, as 
in the second simulation, leads to electrons in the focal volume heating 
rapidly to 95 eV and then cooling to 75 eV at 30 ns. The ions rapidly 
heat to about 35 eV, and then continue to rise in temperature until they 
reach 50 eV at 30 ns. It is interesting to note that the fluid densities 
at the focal volume for these two simulations are almost identical over 
the period of 12 ns to 30 ns. These plots also show the importance of 
the laser focus position. In the third simulation, where the beam was 
focussed further into the plasma, the electron temperature rapidly rose 
to 155 eV as the shock wave propagated through the plasma. The plots 
indicate that at about 7 ns a hot plasma of critical density existed in 
the focal volume. Since this critical layer is part of the shock wave, 
characteristic scale lengths are very short at this time. After the shock 
passes through the focal volume, the electron temperature cooled much 
more rapidly than was found in the other simulations. By 30 ns the 
electron temperature is only 75 eV which is the same as the electron 
temperature of the second simulation at 30 ns. The fluid density also 
fell rapidly and became essentially the same as that of the second 
simulation by 22 ns. The ion temperature in the focal volume of the 
third simulation rose rapidly to about 50 eV and remained constant for 
the duration of the simulation. Another important feature seen in these 
plots is that the density curve goes through the quarter critical value 
fairly quickly before becoming more level at a density of about nares ee 
The time at which the density curve goes through the quarter critical 


value depends on both the laser power and the laser focus position. 
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The three dimensional plots for the fourth simulation are 
shown at a time of 12 ns. This is close to the time of peak laser power 
and is just after the laser beam has bleached its way through the focal 
volume. A peak electron temperature in excess of 200 eV is seen at this 
time while the peak ion temperature is close to 60 eV. The three 
dimensional plot of plasma density shows no axial shock, however other 
plots not included in this thesis show that an axial shock exists at both 
earlier and later times. The reason for this effect is that as the laser 
beam bleaching wave propagates through the focal volume, the bleaching 
velocity exceeds the acoustic velocity in the hot plasma behind the 
bleaching front. This high velocity bleaching wave temporarily destroys 
the shock wave. The plots of Me and V5 show much larger fluid velocities 
in the region of the bleaching front than that of previous simulations. 
This is a reflection of the large pressure gradients that have been set 
up. 

In Figure 4.30, No» T,) and T, at the position of the laser 
focal spot are plotted as a function of time. This plot shows that the 
axial shock reaches the focal spot before it is destroyed as indicated by 
Figure 4.27. As the back end of the shock wave passes the focal point 
of the laser beam, the electron temperature rises very rapidly to reach 
a peak of 265 eV. Just after the shock wave passes through the focal 
Spot the plasma expands rapidly and the electron temperature falls to about 
100 eV in a period of about 1 ns, and then continues to drop but at a 
much slower rate. This rapid cooling can be attributed to the rapid 
adiabatic expansion as well as thermal conduction due to large temperature 


gradients. 
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Lies Conclusions 


The computer simulations of laser heated gas target plasmas 
predict that the hydrodynamic quantities vary over relatively long 
characteristic scale lengths. Both axial and radial shocks propagate 
away from the region of laser heating. Most of the laser energy is 
found to be deposited in a small volume of plasma just behind the axial 
shock, leading to both electrons and ions reaching their peak temperature 
at a short distance behind the shock. The plasma temperature and density 
in the laser focal volume is found to be a relatively weak function of 


input laser power. 


It is found that the position of the laser focal spot 
relative to the initial density profile can be important to the resulting 
hydrodynamics. If the laser is focussed sufficiently far into the 
initial density profile that an axial shock wave is driven through the 
focal volume, the early time electron temperatures and densities are 
found to be much higher than temperatures and densities at corresponding 
times for the case where the laser is focussed at the front edge of the 
density profile. These differences could lead to significantly different 
observations of laser induced parametric instabilities. The hydrodynamic 
behaviour of the plasma at later times (> 25 ns), however, is found to 


be relatively insensitive to the position of the laser focal spot. 


The reduction of the beam radius at the focal spot can have 
dramatic effects on the resulting hydrodynamics. While the electron 
temperature at the focal spot rose to a much higher value for the case 
of ooG™ 35 um as compared to when Sharon 125 um, it also decreased much 
more rapidly. The plasma density also drops more quickly for smaller 


values of Se 
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Figure 4.1 Initial axial density profile used in 
gas target simulations #1, #2, and #3. The 
left * denotes the position of laser focus 
for simulations #1 and #2. The right * denotes 
the position of laser focus for simulation #3. 


Figure 4.2 Initial axial density profile used in gas 
target simulation #4. The * denotes the 
position of Iaser focus. 
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CHAPTER 5 


A Theory of Beat Frequency Mixing 


In this chapter a theory for the beat frequency mixing of 
antiparallel electromagnetic beams in a plasma is presented. This 
theory assumes that the plasma is uniform and has an isotropic Maxwellian 
distribution function. The magnetic field, if present, is assumed to 


be parallel to the directions of propagation of the interacting beams. 


Theoretical studies on the beat frequency mixing of anti- 
parallel electromagnetic beams, where the difference frequency of the 
interacting beams is close to the electron plasma frequency, have been 
made by sehmtdeon: Fuchs Lert, Kaufman and conenan Cohena, Cohen 
Beate: and Capjack and ames Much of the work in references 25-29 is 
devoted to the theory of beat frequency mixing in an inhomogeneous plasma. 
Capjack and James present a theory for beat frequency mixing in a 
homogeneous plasma. It was found, however, that the results of Capjack 
and James differed by a factor of about (a, /t,)" from the calculation 
made by Cohen et al?” .The source of this discrepancy is explained in 


this chapter. 


Results from Chapter 3 of this thesis indicate that it may 
be possible to create a plasma which is radially confined by a solenoidal 
magnetic field with very long density and temperature scale lengths in 
the axial direction. For these conditions the theory for beat frequency 
mixing in a homogeneous plasma is valid. Milroy, Capjack and aneeas have 
suggested that the beat frequency mixing of antiparallel laser beams in 
a plasma radially confined by a solenoidal magnetic field could be used 


to create a useful broad-band infrared amplifier. A good theory for the 
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beat-frequency mixing process in homogeneous plasmas is a valuable tool 


for the theoretical study of such a device. 


In this chapter beat frequency mixing rates for a homogeneous 
plasma are derived. The effects of ion mobility and electron-ion 
collisions have been included in this derivation. Inclusion of ion 
mobility leads to the calculation of high mixing rates for the case 
when the beat frequency is close to the ion-acoustic frequency. This 
approach leads to an expression that is valid for difference frequencies 
ranging from zero to much greater than the electron-plasma frequency. 
Inclusion of the effects of electron-ion collisions makes the results 
equally valid for cases where the dominant mechanism for the damping of 
the driven electrostatic mode is collisional, collisionless, or the inter- 


mediate case where both effects are important. 


In Section 5.1 differential equations which describe the 
coupling of antiparallel electromagnetic beams in the presence of electron 
density fluctuations are derived. This derivation follows Cones and has 
been included here for completeness. In Section 5.2 an integral equation 
which defines the electron density fluctuation caused by the beating of 
antiparallel electromagnetic beams is derived. The two differential 
equations from Section 5.1 and the integral equation from Section 5.2 form 
a set of three coupled equations which describe the beat frequency mixing 
process. In Section 5.3 these three equations are simplified through an 
approximation based on the assumption that the amplitudes of the fields 
in the electromagnetic beams vary slowly on the time and length scales 
defined by the beat frequency period and wavelength. Beat frequency 
heating rates are derived for this particular case. In Section 5.4 the 


equations of Section 5.1 and Section 5.2 are cast in an approximate form 
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which allows for easy numerical solution. These new equations are useful 
since they can be used to describe the beat frequency mixing of a beam 
with a short pulse while properly accounting for transient effects in 
the electrostatic mode. In Section 5.5 the dependence of the beat 
frequency mixing rates on plasma parameters are displayed graphically 


and discussed. 


In the derivation that follows it is assumed that the 
interacting beams are plane polarized, however it can be shown that all 


the results are equally valid for the case of circular polarization. 
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Seal Beam Coupling in the Presence of Electron Density Fluctuations 


In this section an expression for the coupling of two anti- 
parallel, linearly polarized, electromagnetic beams in the presence of 
electron density fluctuations is derived. Effects of collisional damping 
(inverse Bremsstrahlung absorption) are included. The frequency of 
the electromagnetic beams, ws (i=1,2) is assumed to be greater than the 


electron plasma frequency, Eee 


The vector potential in the transverse gauge due to the two 


interacting beams can be written as: 


2 il Phe ey Maud Gi, ES 
EL on gp Ae - = 5, (5.1) 


> > 

where Je is the transverse current. From here on it is assumed that A 
a > 

is in the y direction and that the wave vectors k, (i=1,2) are in the 


x direction so that vector notation can be dropped. 


Neglecting higher order terms, A and Jr can be expanded as: 


A = A, (x,t) eee A, (x,t) oa ees 
ED 


is 1€) 1&2 
Jy = J, (x,t) e + J, (x,t) e + c.c. 


where n, is the equilibrium density and aT = (kx - wt) and Ey = (kx = 


Wot). It is also assumed that electron density can be expanded as: 
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where b3 = by ~ Eos Terms of the form expli(é, + Eo) ] have been 


neglected since they are off resonant. 


The transverse current can be found from the transverse electron 


fluid velocity u. 
J,~=- nm, eu (5:24;) 


The ion contribution to the transverse current has been neglected since 
it is smaller than the electron contribution by a factor of (m,/m,). 


The transverse electron fluid velocity u is expanded as: 

u = u, x,t) teal + uy (x,t) ee? + c.c. (555)) 
The electron fluid velocity can be derived from: 

¢ us=-v,u-—E (5.6) 


i 
where vee is the electron-ion collision frequency and E = - aoe A is 
the electric field due to the electromagnetic beams. Magnetic terms 
are of order (u/c) and have been neglected. Equation (5.6) can be split 
into two parts and written as: 
ea ae at 
3, Cu, e 1) Vee 


ei 


Loy ewe Led 
ie = mc 3, Aye ) (52:7) 
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where it is assumed that (v4 /u4) SG ili 


From (5.3) and (5.4) the transverse component of the 


current may be shown to be: 


Je =- eu[n, + (a, Be ties.) 40) 


Combining (5.8) and (5.10) the resonant current terms are found to be: 
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inserted. Then: 


WW 
@ 
I 

= 
{ 
N 
}H- 
‘Ss 
@ 


2 , i 
a. * (3, - iw,) 


2 : 2 
a. > On ik,) 


i] 
@ 
l 
oN 
bs 
t 
bo 
p- 
a 
| eed 
@ 
™ 


116 


‘san bouwetwomgya ad: aaa © 


dd 1 achrogene Mire yenets ATs ce. *) in (E,2) wort 
ad eg a of om 3 
‘4 >) ; - a. get s ; ~ Ads 
(OL) if ‘5 F ® g@? Pigmaee. oy Feet 
Re 
f I ts 1 ne 


.> 


- 


a 7 ‘a 
| a ne e 3 - 4 
ee png See ¢ aes - ea. ae ne 


ile) i La, | iy: faa 
7 | ee 
ees 7 oa ve i oe ) 


Af oy Sed oh eines? ane tzep Rison rial neti bar. aye 


ks 
_ a 
s 

i) 


x - 


rein Sit ow nr ies eint 2ikge: vue . tap 
f ", i a a on 
Ve te Sees hid 


AL? 


and aA << KSA, and that small terms 


f 


It is assumed that 32 A,<< hea 
Gur: i zl 


can be neglected. Then: 
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2 
= )21C k,9,) (5212) 
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By using this relation the component of equation (5.1) with an an 


dependence can be written as: 
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It is assumed that the waves in the electromagnetic beams obey the 


dispersion relation: 


so the first term in (5.13) can be set to zero. Any error in this 
assumption due to nonlinear frequency shifts does not lead to an error 
in the solution. Instead it shows up in the complex solution of 
A, (x,t) rotating in the complex plane. 

Equation (5.13) and the corresponding equation that can be 
derived from the component of (5.1) with a a2 dependence can be expressed 
asi 
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2 oe 
i pe e 
+ + =- (= — 
Ee, Cy aL ro] A, (x,t) GH) a. A, (x,t) 
ck, 
where OO tar is the group velocity of the electromagnetic beams 
ah Vi) 
in the plasmas, ry = £2 PS are the collisional absorption rates for the 
2w 
24 


beams, and * denotes the complex conjugate. 


It should be noted that (5.14) makes no assumption on the 
magnitude of, or rates of change of the density fluctuation eae 
In fact the only restriction on the validity of equations (5.14) is 
that the magnitude of A, (x,t) does not change significantly in one period 


or wavelength of the electromagnetic beams. 


The Manley-Rowe relations (photon conservation) can be 
easily derived from equations (5.14). Neglect collisional absorption 


x 
and multiply the first equation by w and the second equation by 


a 
k 
WoAy . Add each of these equations to its complex conjugate and then add 


the two resulting equations. The result is: 


2 20 
[ouere cel We paae Cle ao cee jA,| = 0 (Gi), 


1 1 


The intensity in each beam can be expressed as: 


w,|k, | 


2 ergs 
af 27 | ( Zz ) 


sec cm 
Substituting this into the above equation yields: 
I I 


1 2 
[3, +c, oe Te? + [d. + cy 35] ( )=0 
| (5.16) 
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Since the photon density in each beam is proportional to (1, /k,;) this 
equation implies photon conservation. An equivalent form for (5.16) 
; « 2 

is (use k, = (wie, )/e ) 


ecm lh ch aa) icoalauect e530) (1,i le, |o,)= 0 


The Manley-Rowe relations can be cast in a simpler form. 


The energy density of a beam in the plasma is ES = I,/ fee . Equation 


(5.16) can be rewritten as: 
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If Wy is defined as the rate at which energy is being transferred out 


of the high frequency beam and W, is the rate at which energy is being 
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ees Density Fluctuations in the Presence of Antiparallel Electro- 


magnetic Beams 


Equations (5.14) can be used to describe the coupling of two 
antiparallel electromagnetic beams in the presence of an electron density 
fluctuation. The ponderomotive force from these two beams, however drives 

5 > 
a density fluctuation of frequency w., and wave-vector k.where 


3 3 
> > > 
W, = 6, - w, and k, =k, - k,. In this section a general relation for 


3 Hg Z 3 di 2 
the electron density fluctuation resulting from the mixing of two anti- 


parallel electromagnetic beams is derived. The effects of ion mobility 


and electron-ion collisions are included in this analysis. 


In this treatment the following four forces acting on 

electrons and ions are accounted for. 

CE) ae - Force experienced by species € (€ = e or i for 
electrons or ions) due to the coulomb electric 
field resulting from electron and ion density 
fluctuations. 

(29 Fy - Ponderomotive force on electrons. 

(3) Ee - Ponderomotive force on ions. 

(4) Eee - Phenomenological force on electrons to 
account for electron-ion collisions. An equal 
and opposite force is applied to ions. 

In addition to these four forces, we also define: 


Ch) JMR yaa Fey ee Parse - Total force acting on 
ce @ co 


Te Ah 
electrons. 
(2) Fry = F 4 + F, = E et - Total force acting on ions. 


The double Fourier transform of all quantities (x,t) 
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that vary as exp[i(k,x - wet)] is taken. The transform has been defined 


symmetrically as: 


Oy eee ee Grey ene a Oar 
Q(x,t) = = f f  Qk,w) pee) dk dw 


With this definition taking the transform of a differential equation 


in x and t means that: 


On cr = hi ands / od toric 
te x 


The coulomb force on species e€ can be written as: 
F _ %t) = q {E(x t) + Est} (5)..18)) 


where ne is the charge of species ce, and Ene is the component of the 


coulomb field due to the density fluctuations of species e. 


The ponderomotive force on species e€ has been derived in 


Appendix C as: 


F (x,t) =- A, (x, tA, (x, t)expli(k, Xx - Ww 3t)] + c.c. 


ae ie 
(5, 49) 


where me is the particle mass of species e€ and c = speed of light. 


(k,w) can be expressed as a function of E_ (k,w) and 
col ce 


.(k,w). The average force on electrons due to electron-ion collisions 


can be expressed as: 
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= m(v, - ye) sy (52:20) 


col ei 


where we is the average velocity of particles of species ce, and yee 


is the electron-ion collision frequency. However from the relations: 


i) 
€ 
MA ae 5 SN hs E,, (xt) = 4r p (x,t) ; and 
ote 
20 
roy + Ves un = 0 where Je is the current due to species 


€, and Pe is the charge density due to perturbations in the number 


density of species e« it is found that 


iwE _(k,w) 


v _ (ky w) ea - CSnZils) 
Oo *e 
Combining (5.20) and (5.21) yields: 
sues Vei 
= E + E 
Fo (K9”) 4m e { 3 OK) ne (Kews 
or 
eed 
is E ; 
Pa) a= te 5 {E , (kw) + E i (k,w)} (5.22) 
W pe 
4tn = 1/2 
where w ona Germaine ) is the electron plasma frequency. Combining 
P 
e 


equations (5.18) and (5.22): 


Fun tk) (5.23) 
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To simplify algebra the following constants are defined: 


(ose) ays oh aps 


ta” Oe 5® seloogn iG aslotiqng to Ue ' 


ranckszalay efx mod? panne lt oe 


ToLrmge. OF eit Jitosaun |edy et 4 aTatw o w | ; = a i 
votes oft m2 anotredrysiag of Sup cohen ce ois bet 


ei six | 
aoe ad co actin ) 


w“ 


| ; | i aes | 


124 


Then from the definitions of F and “Fo .: 
Te ea 


ial 
WW 


[F. = ny 8 Lee 


(5.24) 


Hy 
! 


ry = [F, =p Fovad 


Using a kinetic approach, and solving the linearized Vlasov 
equation (see Appendix B) it is found that the coulomb field resulting 


from fluctuations of species a can be expressed as: 


_ My 
E. - (wk) =J= qe Fig (wk) (32259 


where Xe is the linear susceptability of species «. From Appendix B: 


2 
w 
eae € 
X, (w,k) 2-5 5 {l +i epee } (5.26) 
k Vv 
Be 
where 9 
D 4mn .e 2k oT. 1/2 
ope. TG. agge OEM gD 
PE € € 
Sas 2 
W € ik ie Be d 
a = Fo == <_______ dy, 
O€ Kv. fe) B aii (w4 kv) 


and T_ is the temperature of species e€. Techniques of evaluating Fy 
€ 
are discussed in Seis (Chapter 8).From equations (5.18), (5.24), and 


(55.25).* 
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Solving equations (5.27) for Ee and Es yields: 


ewe +b xD +b Ny Fi} 


E I 
ce e(1l +b oa» X5) 
(5.28) 
vane x, {F, + Dex 2) eb es ae 
- 
er e(l Fb Xe ED X4) 
Writing the total species density Np, (Xt) as: 
Ty, (Xt) = 1, + n_ (x,t) 
and using, 
Ve E (xt) = dn qd. n_ (x,t) 
yields, 
ik EA, (kw) 
n_(k,w) = Wika s as Co29) 
€ 
Combining (5.28) and (5.29) and ignoring F. since F << Ee yields: 
: FP. (iat bys 
peace yar 1 ey om 
. 4te Xe Xi 
The Fourier transform of F (x,t) defined in eqthation (5.19) may be 
shown to be: 
ie ky ie k, 
F (kw) = - 5 f(k,w) + 5 g(k,w) 
mc mc 
e 
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and 


g (=k, -w) at BE (k, w) 


If D(k,w) is defined by: 


kk, x, 1 +b x5) 
D(k,w) = - —— > (Se3525 
arm c” (1 + b X4 +b a) 
x 
it may be shown that D(-k,-w) = - D (k,w). If the inverse Fourier 


transform of equation (5.30) is now taken and use made of equations 


(5.31) and (5.32), the electron density perturbation may be written as: 


Cc 


n, (x,t) == { f Dtk,w) £(k,w) eee she alii iuche(sieele 


—C =—CO 


(ERS) 
The expression for ByGc.c) as required for equation (5.14) may be 
written as: 


~i(k,x-w,t) 


ss = j f D(k,w) £(k,w)et Reet) 


dk dw 


~ 
n(x, t) 


(5.34) 
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5 One | Case of Slowly Varying Electromagnetic Beam Amplitudes 


If both A, (x,t) and A, (x,t) vary slowly on a time scale 
defined by the damping rate of the beat wave and on a length scale 
defined by the wavelength of the beat wave, equation (5.34) can be 
approximated. Under these conditions f(k,w) is sharply resonant and 
has significant values only for k =~ + ky and w = +w,. Equation (5.34) 


3 


can be approximated as: 


~i(k 


x-w,t) 
(x,t) ae 3 


3 
D(k, Ww) feet) 
where f(x,t) is the double Fourier transform of f(k,w) defined in 


equation (5.31). Using this definition: 
n 5.35) 
n (x,t) = D(k, 504) A, (x,t) A, Gost) (S 


Equations (5.14) and (5.35) form a set of three coupled equations that 


describe the beat-frequency mixing process for slowly varying A, and Ay. 


By inserting (5.35) into (5.14) it is found that: 


: i = 1 * 
[3+ C19 + Ti JA,&,t) =- (5) - ° PUL cine hse 
9 (5:2:36)) 
Ww 
ie Ae ae : 
[3+ C9 + T JA, @&, t) = GS) D5 a D (k3,0)A,A, A, 
x : x 
Multiplying the top equation by AL and the bottom equation by A, ; 


and adding each to its complex conjugate yields: 
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i 2 
rahe GY OSs Z 
hegre, alee 2.) maniac) d= a aa (as | 
C537) 
2 i 2 Z 

eeecae tye 0] JA, (x,t) | =- w, - gx) |A, | JA, | 

where, 
2 nc go oie 

aM 2 De ny D(k, >) 

Now using: 
2 27 
where I. is the beam intensity; 
| TE ON tS 
[a+ eyo ely es ae (B- 8) Lats 
melee 22 
2ri * 
[3+ C59, zs 2r,] I, = - mn ap ; a | (82—18))) 1,1, 
gd NI 
Oneal t . 
; 
ie ree a 8 Nig eS (5.39) 
w¥9/K |e, 
[9, +¢,8, + 27,] 1, = ac, 11, 
(5.40) 
2 _2 
[2.4 c,9 + 271d, = - | E, ee eS 


The coupling coefficient a can be rewritten as: 
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27 Ww 
Cate {D(k,w3)} (5.41) 


M8 8oK oe) 


The parameter a must be multiplied by 108. Be I, is expressed in 


Wiens 


The rate that energy is deposited in the plasma due to 
beat frequency mixing, W35 can be calculated from the conservation of 
energy principle through the use of equations (5.40) and (5.41). The 
deposited energy Wy is set equal to the difference in the transfer rate 
of energy from the first beam and the transfer rate of energy into the 
second beam. The energy density of a beam in the plasma is E | sc Kea 
events Neglecting collisional absorption of the beams, equations 


(5.40) can be rewritten as: 


e + c,9,) c =a) oot! 


ky 
(Op coe.) =, | ky 172 


Cc 

|| =latt 
2 

The left hand side of these equations is clearly the rate of energy 


transfer into the beams. Thus, from the definition of W,: 


W, = - [C3 c,9,) E + ope C59.) E.] 
or 
k ¢ 
Z 1 
W.=-aTLI,a-|—||—]) 
3 Dez kK Co 
ork. k, Cy Ww, 
Using ‘cy. = = , | — | | — | can be rewritten as — . Then: 
L Or ky Co Wy 
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Using the definition of a from equation (5.41) this expression becomes: 


-2 7 w2 Ww 


yee Pear Im{D (k5,w5)} I, (x,t) 1, (x,t) (5.42) 


kk 
Somme 2.12 
It is interesting to note that equation (5.42) can also be 
derived by the more direct method of setting the plasma heating rate to 
the ponderomotive force on the electrons times the electron particle 
flux. The electron particle flux 1, can be found from the continuity 


equation: 


3 een CM 
Ne n, (x,t) = ax I (x,t) C543) 
and equation (5.30): 
: x (1 +b x.) 
iw e 
at (k,w) > 1 (k,w) 
e oe 1 +b Xo mailed ©: X; @ 
or, using (5232) 
iwm c 
I (k,w) = —= = D(k,w) F. (k,w) (5.44) 
on 7 e 
k k,e 


For slowly varying Fi(x,t), F(k,w) is sharply resonant in k and a, 


and the inverse transform of (5.44) can be approximated so: 


I (x,t) = T (x,t) exp{i(k,x - wat) ] + c.c. (5.45) 
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where, 
A; iw,m¢ in 
I, (x,t) i k 2,2 D(k,,W) Fi (x,t) (5.46) 
3 
and, 
% 2 
i #e 
Fo (x,t) = - ae Kee) ANG, €) (5.47) 
mc 
e 


The rate that energy is deposited in the plasma, Ws is set to the 


ponderomotive force on the electrons times the electron particle flux. 
wu % 
W, = 2Re{1F } Ce) 


Using equations (5.46) and (5.47) in equation (5.48) yields: 


iw,e rs x 
W, = 2 Re{ —>—D(k3,w3) AJA, Andy | 
mc 
e 
Using equation (5.38) 
} an iwc 
W, = 2 Ref : ie Dik, »w4)} I, &,t) I, (x,t) 
ace Nees boap Ra TS 
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27W ae 
A Lee ee See 
Wy 5 ne Im{D (k,,w,)} I, (x,t) I, (x,t) 
Sma 2 ake 2 


Which is identical to (5.42). 


It is interesting to compare the results of this derivation 
30 : 
with the results of Capjack and James where a different type of 
derivation was used. For this comparison collisional effects are 


neglected since they are accounted for in a different manner in the two 
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treatments. The present work accounts for electron-ion collisions 
in a more consistent manner. First, the beat frequency electric field 


E, = (Ee, + Ew is found. From equations (5.28): 


Xe 


lo 


E, (w,k) = (5.49) 


+ + 
- Xi Xo 

where b has been set to 1 and Fy has been set to zero. Again, if 
F (wk) is sharply resonant around w = + w, and k = + k, the inverse 


3 3 


Fourier transform of (5.49) can be approximated. 


AV 
E, (x,t) = E, (x,t) expli(k,x ~ wat) ] + c.c. 250) 
where % 
~% iG F (x,t) 


' = 
Xe Xy (w,,k,) 


% 
and Fo (x,t) is defined in (5.47). 


av, 
FL (x,t) must be cast in a different form to compare with the results of 


Capjack and James. Assuming ed aes or w, = ck, equation (5.38) can 


be approximated as: 
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Substitution of the above equation into equation (5.47) yields: 


[2 


Z 
MT 2 6Ce 3 f 


: i ; -1 
Again the assumption that Or >> ane or Ww, =c k is made and (Ww, 


is approximated as: 


1 ez 
(W1%>) = 
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2T™c m 
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For T, = T; this is in exact agreement with the value for the coulomb 


field found by Capjack and James?”, 


The plasma heating rate W can also be cast into a form 
pee ; 0 ; 
similar to that of Capjack and Sarees - It is most convenient to express 


% LV, % 
I (x,t) and F, (x, t) in terms of Ee et) before using (5.48) to find Wa: 


By using the continuity equation: 


a n, (x,t) =- a TG, t) 
and Gauss' Law: 


2. Ee (eet) =-4te n, 


2t is found that: 


oh Basen £55 
T(k,w) Eg (Kw) (5.55) 
Taking the inverse Fourier transform yields: 
iw, ny 
I Gexe?) = Ee Eo (Xt) 
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where I (x,t) is ‘detined in (5.45). 


Letting b=1 and x, =0 in equation (5.28) and approximating 


the inverse Fourier transform yields: 
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where y' = x_(k,,w,). Substituting (5.55) and (5.56) into (5.48) yields: 
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The heating rate given by (5.57) is smaller by a factor of 


ei from that derived by Capjack and James?°, For a cold plasma 


(cas << 1) the two results differ by a factor of (w,/u,,) The 


discrepancy can be attributed to an error in the definition of the 


heating rate used by Capjack and James”? , 
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ily Transient Analysis 


In cases where the amplitude of one of the electromagnetic 
waves changes rapidly in time the quasi-static approximation breaks 
down. In this section, equations (5.14) and (5.34) are cast in a form 


such that they can easily be solved numerically. 


2 3 
a) n(x.) 
a ieePEagger ys 
oo Cc, 9,7 ri] A, (x,t) =- 2) Wy ee A, (x,t) 
2 (5.14) 
ie ner. b) 
i) wee Cu weeny 
[3+ C50 + rs] A, (x,t) = G 5 = A, (x,t) 
-i(k,x-w,t) co © ' 
ne Gest) dogs wAwel Big, oa fof Dew) £ Ck, w) et BE-8t) aay 
(5.34) 
where: 
oo co i AC RUE.) hes He 
£ (k,w) - > f it A, (x,t), (x,t)e 3 e i (ex wt) ide 
and 
Krk yl FEB ye ) 
3 e i 
D(k,w) = - ——sr OO 5-32) 
4mm c (1 + bx + bx, 


where x_ and X, are the usual electron and ion linear susceptabilities 
e 
as calculated from the linear Vlasov equations. The validity of these 
equations is dependent on the following inequalities. 
|3, A, (x,t) | << lo, : A, (x,t)| 


[a A, Gt) |. << [ky - Av Geol 


Since for the mixing of antiparallel beams [| = Ik, | tt Ike |. the 
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second of the above inequalities 
of the above equations f(k,w) will 
significant values only for k near 


necessarily sharply resonant in w. 


As an example consider 
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implies that in the region of validity 
be sharply resonant in k, and has 


a k. The function f(k,w) is not 


the mixing of a beam of wavelength 


10.6um with a pulse with a wavelength of 10.612um. For this case the 


frequency and wavevector of the driven electrostatic wave almost 


Satisfies the dispersion relation of an ion-acoustic wave in a 100eV 


tal 


plasma. The frequency w, = 2x10 


=A 


3 


ky = 1.2x10° cm 


or T, = 3.1x10 12 


-1 
sec and the wavevector 


sec, and h3 = Ger aeiian where T, 


and 3 are the period and wavelength of the driven electro-static wave. 


If the pulse is ees 


Awa Te 107° + Aw/w 
Avkia ls 3.3 > Ak/k 
Ax 3 


Such a pulse is highly 


seconds or 0. 


semitone. 


2.8x107¢ 


resonant in k but the frequency spread is 


almost as large as the frequency itself. 


When f(k,w) is sharply resonant in k around k, 


so that 


D(k,w) does not change much over the range of k, the k integration in 


(5.34) can be approximated: 


-i(k,x-w.t) 
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By the Convolution Theorem, (5.58) can be rewritten as: 


-i(k co t) tin Fa: 
% 
n, (x, t)= e sec dia teal if f (x,t) D(k,,t-t)dt 
In -® 

where 

D(k,,t) =e f D(k,,w) eae dw 

27 -« 

Now if 


-ik.x -iw.t 


bs 3 * 3 
PCat) vac (xh) e = A, &,t) A, (x,t) e 


AY 
n, (x,t) can be expressed ag: 


t t 


iw 
f (x,t) D(k,,t-t) dt 


Ne (x,t) =e 3 I 
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In principle equations (5.14) and (5.63) can be solved 


(5.60) 


(261) 


(S02) 


(5.63) 


self-consistently to yield an approximate solution to the evolution of 


two interacting beams. 


In order to numerically calculate the solution to these 


equations for a short pulse, it is most convenient to transform the 


equations into a coordinate system where the pulse is stationary. 


appropriate variables are t' and x' where: 


t'=t Can) Wel 84 Clie 


ra 
i 
» 
i 
Q 
ct 
Q 
+ 
Q 


Equations (5.14) transform to: 


The 


(5.64) 
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ba Oo. 
R = -— 1 Pe 
L 2 wn 
Lg We) 
(5.67) 
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f Ww 
R Ss 1 pe. 
2 Z w,n 
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The variables Aj >A,» andne have been primed to emphasize the fact that 


they have a new functional form in the new coordinate system. 
In terms of the new variables, equation (5.63) can be 
written as: 
diet 1 0 ay 


ng (x'+c,t',t")=¢ 3 = it nal (gi ee 
Pa Wh 


gt'st)D(k,,t'-1) dt 


Ny 
The functional dependence of ty and f is changed in the primed coordinate 


system so that: 


vu A se area 
pn Gokstl) n, (x + cyt st ) 
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Thus, 
% ~iw,t! 


* 
E(x! + cyt',T) = f'(&,t) = Aj (E57) A, (ET) e (5.68) 
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2 e au 
The integral equation for n, can now be expressed as: 


AT eee J 
3 1 : 


Von titx'/c, 


~ 
sal CS Dk, ,t! =i Liat 


(5.69) 


The lower limit on the integral comes from assuming A, (x',t') = 0 for 
x' < 0 and also assuming that Cy < 0 and Cy Ol Substitution of 


(5.68) into (5.69) yields: 


t" iw, (t'-t) 
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* 
nat -) ee f A, (E,t)A,'(,7) ee D(k,,t'-t)dt 
v27 titx'/c. 
Changing the variable of integration from t to t' = t' - Tt yields: 
=aiic ts 
n'(x',t')= — f G Aj (x!te,t!,t'-1' A, (xite,t’,t'-t') - 
¥2T oO elit 
iwt 
e Daw dt. (5.70) 


Equations (5.65), (5.66) and (5.70) form a set of coupled 


equations from which an approximate solution can be obtained numerically. 


A numerical solution to these equations will be presented in Chapter 6. 
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5.5 Results 
In this section the dependence of the beat frequency mixing 
rate (defined through the parameter a) on plasma parameters and the 
laser difference frequency is displayed graphically. The figures in 
this chapter were chosen to show the dependence of a on plasma parameters, 


and to provide numerical data that will be needed in Chapter 6. 


Figures 5.1, 5.2, and 5.3 show the beat frequency mixing 


ay 
rate a, the electron density fluctuation level N.> and the ion density 


av) 


fluctuation level N,> as a function of the laser difference frequency Wa. 


Here the density fluctuation levels are normalized to be independent of 


laser beam intensities. That is: 


™ 
v 2|n_| 
N = -__-— 
E 
1,1,n 
where I, and I, are expressed in W: a. All of these plots show 


1 2 

3 close to the Langmuir frequency. In 
Aas AG 

Figure 5.1., T, >> qT and there is a sharp peak in No? N and a for w 


OV 
a sharp peak in a, and N, for w 
3 
close to the ion-acoustic frequency. It is interesting to note that in 
Figures 5.2 and 5.3, the plasma density fluctuations are almost independent 
of W, over a wide range while the parameter o increases monotonically 


with increasing w Another interesting feature of these plots is the 


3° 
nN 2 LA2 

sharp minimum in Ne and a for W. close to i where oy = (4mm e /m,) 

is the ion plasma frequency. The minimum results from the fact that 


near the ion plasma frequency, the ions move in such a way that their 


coulomb field cancels the driving field on the electrons. 


Figures 5.4, 5.5, and 5.6 show a versus no for various 
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difference frequencies, and plasma temperatures. These plots show that 
at higher temperatures, where Landau damping is strong, a is not nearly 
as strongly dependent on density as it is at lower temperatures where 
damping is weaker. Also, for larger difference frequencies, higher 


temperatures are needed to broaden the resonance. 


Figures 5.7, 5.8, and 5.9 show the dependence of a on density 
and temperature for beat frequency mixing near the ion-acoustic frequency. 
= 10.247um and A 


In these plots it was assumed that A = 10.2605unm. 


ut Z 


These wavelengths correspond to the R(20) and R(18) transitions in a cO., 
laser respectively. Figure 5.7 shows that ‘ increases monotonically 
with increasing density over a wide range of densities. Figures 5.8 and 
5.9 show a as a function of temperatures. For cases of T; << T, sharp 


peaks are seen in a for W, close to the ion-acoustic frequency. 
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CHAPTER 6 


Some Applications of Beat Frequency Mixing 


The beat frequency mixing of antiparallel laser beams leads 
to energy being transferred from the high frequency electromagnetic wave 
to the lower frequency electromagnetic wave and to the beat frequency 
electrostatic wave. The electrostatic wave is damped by collisional, 
and collisionless mechanisms and is eventually converted to plasma thermal 
energy. The ratio of energy transferred to the electromagnetic wave to 
energy transferred to the electrostatic wave is given by the Manley-Rowe 
relations 5.17) as (w/w). This ioceae has often been considered as 
a possible mechanism for heating underdense plasmas. From the Manley-Rowe 
relations beat frequency heating can be much more efficient for Ww close 


to the Langmuir frequency than it is for W. close to the ion-acoustic 


frequency. 


In this chapter, some applications of the amplification of 
the lower frequency electromagnetic wave will be considered. A device 
is proposed which could be capable of efficiently amplifying coherent 
radiation in the 11-l14ym range. This same device could also be capable 


of amplifying very short pulses of infrared radiation. 
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6.1 A Plasma-Laser Amplifier in the 11-14um Wavelength Range 


A laser amplifier in the infrared is of interest for 
applications in laser heating of plasmas confined magnetically in 
solenoids and recently for nuclear isotope separation. In this study a 
laser amplifier is proposed which relies on a 10.6um laser to serve as 
a pump for amplifying laser beams in the range seat um with a high 
conversion efficiency. The proposed scheme is shown to be ideally suited 
for amplification of radiation in the range 12213um which includes the 
12.1lum line which is of interest in nuclear isotope separation (see 


Jensen et aleeye 


The basis of operation for the proposed amplifier is the 
nonlinear interaction in a plasma between a strong 10.6um laser beam which 
serves as a pump and a lower frequency laser beam which is to be amplified. 


The two beams force an electron plasma wave at their beat frequency. 


The analysis of Chapter 5 shows that for a plasma with a 
temperature greater than v 100eV, the mechanism for the transfer of 
energy to the lower frequency laser beam is very insensitive to variations 
in the plasma density and temperature. That is, this technique for 
transferring energy to a lower frequency laser beam does not need to be 
restricted only to cases where the difference frequency of the laser 
beams is very close to the Langmuir frequency. Based on this observation, 
a laser amplifier in the far infrared with plasma serving as a nonlinear 
mixing medium appears experimentally realizable. The proposed scheme is 
essentially a parametric amplifier with the crystal replaced by a plasma. 


However, this amplifier would operate at much higher beam intensities 
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than parametric amplifiers which use a crystal as their beam mixing 
medium. The amount of energy transferred from the pump to the lower 
frequency waves is found to obey a Manley-Rowe type of relationship, 


equation (5.17). 


where W, is the energy transferred from the high frequency beam, Wo and 
We are the energies transferred into the low frequency beam and the 


plasma wave respectively. Wy and W, are the frequencies of the high and 


=wW,.-w, is the 


low frequency electromagnetic beams respectively and W 3=W) “Wo 


frequency of the driven plasma wave. 


A schematic of a simple optical amplifier is shown in Figure 
6.1(a). In this device plasma is radially confined by a solenoidal 
Magnetic field. Even though the 10.6um laser beam enters the solenoid 
at a slight angle it will be guided down the axis of the solenoid due to 
a density minimum on the axis. Such a density minimum could be created 
during the plasma formation or by the co, laser itself (see Steinhauer ?9 | 
1976). The required physical length of such a device is dependent on 
the plasma density and temperature profiles as well as the wavelength and 
initial intensity of the beam to be amplified. These factors are discussed 


in’ detail later. 


Certain advantages can be gained by placing the amplifier in 
an optical resonator. Two possible configurations are shown in Figures 


6.1(b) and 6.1(c). The mirror configuration in Figure 6.1(b) is the 
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Same as that of a laser. Part of the low frequency beam is reflected 


2° The low 
frequency beam propagating antiparallel to the 10.6um beam is amplified 


back into the plasma by partially reflecting mirror M 


at the expense of the eure beam. The portion of the low frequency 
beam propagating parallel to the Te Gun beam does not interact with the 
10.6um beam (see Capjack and James?) | an optical resonator enables 

the low frequency beam (frequency W) to be of relatively high intensity 
and thus enhances the energy transfer rts caey A second major advantage 
of placing the amplifier in an optical resonator is that the low 
frequency beam can continue to be emitted long after the initial low 
frequency beam has shut off. Thus a short Q-switched pulse signal can 
be used to start the process which will then continue long after the 
initial low frequency signal has died away. There is also a possibility 
that the low frequency signal could be generated spontaneously, thus 
eliminating the need for the injected signal. In this case however 
precise frequency control could not be achieved. The principle of operation 
of the device with the mirror configuration shown in Figure 6.1(c) is 
much the same as that of Figure 6.1(b). The main difference is that the 
low frequency beam now only traverses the plasma in one direction. This 
has the advantage of reducing the absorption of the beam by the plasma 


through inverse Bremsstrahlung absorption. 


For either of the mirror configurations the ratio of the 
intensity of the low frequency beam as it enters the plasma to that of 


the high frequency beam as it enters the plasma is given by: 
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where R is the fraction of energy reflected by the partially reflecting 
mirror, I, (x) and I, (x) are the intensities of the pump beam and the beam 
to be amplified respectively in wheur and L is the length of the 
solenoid. In deriving this relation it has been assumed that inverse 
Bremsstrahlung absorption is negligible and that all of the energy in the 


high frequency wave has been transferred to the two lower frequency waves. 


Optimal efficiency in energy conversion from the high 
frequency beam can be achieved by making the physical length of the 
solenoid longer than the absorption length of the first beam. By neglecting 
absorption through inverse Boemeceranine (valid for high plasma temper- 


3/2 dependence) a theoretical 


atures since absorption length as a Ae 
estimate of the spatial dependence of the intensities of the two beams in 


the plasma can be written as: 


dT, (x) 
ae ye =- al, Gx)T, Gx) 
(Oe) 
oie Kx) ) 
ee ar (a) 
ox Ww 1 2 
1 
These equations are obtained from (5.40) by assuming P,=T,=0, in ons 
and [k,/k, | = (w,/w,)- The last two relations are valid if Hy oo” es 


Note that the high frequency beam propagates in the +x direction 
and is attenuated while the low frequency beam propagates in the -x direction 


and grows. Solving (6.1) for I, (x) 
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abI, (0)exp (-abx) 


Lite ab+a (w,/a,) 1, (0) [1-exp (-abx)] 


(67.2)) 


where b=[T, (L)-(w, /w,)1, (L)). 


Theoretical estimates of the parameter a have been made 
in Chapter 5. Figure 5.5 indicates that for a 12 um beam mixing 


with a 10.6 um beam, a could be expected to be greater than Nene 


for a density near one emis and a temperature near 200 eV. Figure 

5.6 shows that much higher temperatures and densities are needed to 
achieve a broad resonance and high value of a for the amplification of 

a 14 um line. However high temperatures may be achieved in such a device 


since the plasma is heated by both inverse Bremsstrahlung absorption of 


the electromagnetic waves and by the beat frequency mixing process. 


If a 14 um beam is being amplified and a = here 
(6.2) predicts that the first beam will be 90% absorbed in 20 cm if both 
beams enter the plasma with an intensity of poet ST iamae If the first 
beam enters the plasma with an intensity of pun ema and the second 


beam enters with an intensity of 10° tien the first beam will be 902 


absorbed in 60 cm. 


This work could be extended through the development of a 
computer subroutine which numerically solves equations (5.40) in a time 
and spatially varying plasma and which is then interfaced with the two 
dimensional simulation described in Chapter 2. In this way the plasma 
parameters could be calculated self-consistently with the beat frequency 


heating rate. 
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Oa2 Short Pulse Amplification 


In this section, the possibility of using the beat frequency 
mixing process to amplify and temporally shorten pulses of infrared 
laser radiation is considered. Consideration is given to cases where 
the beat frequency is close to ene electron plasma frequency and to 
cases where the beat frequency is close to the ion-acoustic frequency. 
The basis of operation for such a device is as follows: A signal 
oscillator injects a pulse of electromagnetic radiation into the plasma 
antiparallel to the pump beam. The beat frequency mixing process then 
causes an energy transfer out of the pump beam, and into the signal to 
be amplified and the electrostatic mixing mode. If this mixing occurs 
rapidly the pump beam may be rapidly depleted causing only the leading 
edge of the signal beam to be amplified. This leads to a comparatively 
long signal pulse growing into a sharp burst of intense radiation. Also 
considered is the case where this device is used to amplify an ultra- 
short (< 100ps) pulse of laser radiation. Ways of generating such 


short pulses have been developed by Yablonovitch and Goldhar?4 , and later 
5D 


by Fisher and Fieldman 


In the previous section it was suggested that a plasma 
could be a useful nonlinear medium for the parametric amplification of 
infrared radiation. This analysis assumed a steady state condition (no 
temporal dependence) for the plasma and interacting beams and consequently 
is not valid for describing the amplification of short pulses of 
radiation. While the former analysis considered only the case where 
the beat frequency mode was an electron plasma mode, the present analysis 
concentrates more on the case where the beat frequency mode is an ion- 


acoustic mode. 
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Again, Figure 6.1(a) can serve as a schematic diagram 
for the proposed amplifier. For purposes of this thesis, it is assumed 
that a pulse of radiation with a wavelength of approximately 10.6um 
is to be amplified. If the pump beam has a wavelength of approximately 
9.6um and the pulse to be amplified has a wavelength of 10.6\1m, the 
beat frequency of these two waves is close to the electron plasma 
frequency of a plasma of density 104 enue If the appropriate plasma 
conditions exist an electron plasma wave can be driven and the 10.6um 
pulse is amplified at the expense of the 9.6um beam. Similarly, if the 


pump beam has a wavelength of 10.247um (R(20) transition for a CO laser), 


2 
and the pulse to be amplified has a wavelength of 10.2605um (R(18) 
transition, for.a CO, laser), the beat frequency of these two waves is 
close to the ion-acoustic frequency of a plasma of 350eV. If the 


appropriate plasma conditions exist a large ion-acoustic wave can be 


driven as a beat frequency mixing mode. 


The energy that is transferred from the pump beam to the 
pulse to be amplified is dependent on the device length, the mixing 
rate, the frequencies of the two beams as well as inverse Bremsstrahlung 
absorption rates. If inverse Bremsstrahlung absorption is neglected, 
and it is assumed that the mixing rate is sufficiently rapid so that 
essentially all of the energy is transferred out of the higher frequency 
beam, the principle of conservation of energy and the Manley-Rowe re- 


lations yield the following expression for the energy gained by the pulse. 


[io Nod aay eee i. ib (G3) 
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where AE is the energy gained by the pulse, I, is the average cross- 
sectional intensity of the pump beam, A is the cross-sectional area of 
the pump beam, c is the speed of light and L is the plasma Lensthe. in 
the design of this device, the device length, the pump beam intensity, 
and the plasma conditions must be chosen in such away that Brillouin 
backscatter is not a serious problem. Since this device is intended to 
amplify back-travelling radiation, threshold conditions for parametric 
instabilities must, by definition, be exceeded. Since these instabilities 
must grow from thermal plasma fluctuations (which may be incoherent) 

no problem will be created if the device is sufficiently short. Exactly 
what conditions must be met before these instabilities create a problem 
cannot be determined at the present time. For the purposes of this 
analysis, it is assumed that a sufficient condition to prevent problems 


with parametric instabilities is: 
- 4 
exp(a 1,1) mm LO (6.4) 


where a is the growth rate for the back-scattered radiation. a. can 
be found as the maximum on a curve of a versus W. for given plasma 
conditions. Since this analysis uses the linearized Vlasov equation, 
we must be careful to ensure that plasma and beam conditions are always 


such that: 


i (6.5) 


ae aes 
A 
A 


where Ne is the magnitude of the density fluctuations due to the beat 


frequency mixing process and no is the equilibrium density. 
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Again, certain advantages can be gained by placing the 
amplifier in an optical resonator such as those illustrated schematically 
in Figures 1(b) and l(c). This can greatly increase the interaction 
length for a pulse allowing it to grow to larger amplitudes. Since 
higher amplitude pulses tend to sharpen quicker due to pump depletion, 
optical resonators could lead to shorter pulses. After the signal 
oscillator has injected one pulse into the amplifier a whole series of 
pulses would be emitted. The temporal separation of these pulses would 
be Lic where - is the optical pathlength of one round trip in the 
device. In order to prevent parametric instabilities from becoming a 
problem in this case, a saturable absorber would have to be placed in 


the path of the pulse. 


. 


wit getoatg ed bentag sd ae date’ - 
vilectvemedge barverteur ly stons 08 noua 
notsoaveoet sd eemevouk Ulsaery: ‘an a as os ark 
4o6t2 eebestiqms cicigs Ot ahaa ag vsti vetig: per 
comtselg sb gave 0? aun sail aie enone ox hem woatog’ herr | 3a 


A iF 
4 
ivy te wis Y= DA dahil ‘cmatoua ay vast Btuve- aroveauaie 


1S Relea elon # ath tama wee ahs abtennt meh bosoet tt at! 
tloow obs fue eeadd Ao fezsuiegan trvouned ant bine ae sal 

eas rh 2ked Saver wae 2s Stasraet eke igor tee eat es et; vier® 
ti ial ae ha | Yee aiytangaxee teevaye’ oF s9txe a " 
ar DS 2ekq Bt a <r bine sod‘abtts veaicink ined ¢ ,9a6> nits ct me 


eae als oe, 


158 


62% 1 Quasi-Static Analysis 


From Section 5.3, equations (5.40) are valid if the 
resonance width of £(k,w) is much narrower than the resonance width 
of D(k,w) so that equation (5.34) can be approximated. The resonance 
width of D(k,w) is of the order of the damping rate of the electrostatic 
mode Yp> and the resonance width of f(k,w) is Aw. Therefore, equations 


(5.4) are valid for: 
Aw, << icy 


Aw 4 can be approximated as: 


where Aw, is the frequency spread of the pump beam and Aw, is the 
frequency spread of the pulse being amplified. Considering the pump 


beam and the pulse to have minimum frequency spreads, dw)<<Aw, SO: 


Thus the quasi-static analysis is valid if: 


Aw, << ica 
or 


x 2 i (6.6) 
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where a is the temporal width of the pulse. When (6.6) is true, the 


evolution of the pulse can be found by solving (5.40): 


Lax +¢ og + 2T,] I, =fanee ide I 


1 1 a 
(6%7) 
Ky 
+ + =- | = 
[ae thes, 3 a | KE, | a ey gel, 
In this analysis it is assumed that the plasma is well underdense 
so that: 
Sere i eb Sn10, cn eee 
(6.8) 
hay aa 
1 yh 


Equations (6.7) can be integrated numerically, however 
it is useful to notice that the amplification factor of the back 
travelling pulse in the pulse front (before pump depletion becomes 
important) is simply given by exp[al, £] where & is the distance this 


portion of the pulse has travelled in the plasma. 


Figure 5.4 is a plot of aas a function of ny for.various 
plasma temperatures for the case of A, =9.6um and \,=10.6um. A value of 


On bxtOn i= is expected for the case of T, close to 100eV and plasma 


density between Pion” and SiGaa anion Chapter 3 discusses a M.H.D. 


computer simulation of a laser heated plasma in a one meter solenoid with 


an intial density of pe 0s venie: After 0.5u-sec of heating with a 


1GW laser the plasma had an on axis density of Facatgn cis: and an 


electron temperature between 95 and 100eV over a distance of more than 
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80cm. In other words, the plasma conditions are such that almost 
optimum values of a exist over most of the length of the one meter 
solenoid. Figure 5.3 shows a as a function of W, for these plasma 
conditions. It is seen that the peak value of a due to the Brillouin 
process is less than the value of a predicted for the Raman ororeran 


Consequently, Brillioun Scattering would not be expected to be a problem 


for this case, 


Another M.H.D. simulation reported in Chapter 3 is that of a 
laser heated plasma in a one meter solenoid and an initial density of 


Peon, cn. After one usec of heating with a one GW laser the plasma 


has a density between Neate! and GO en > an electron temperature 
of between 120 and 180eV, and an ion temperature of between 100 and 
140eV over an 80cm length of the one meter solenoid. Figure 5.2 shows 


a as a function of W. for these plasma conditions. It is seen that a 


large value of a is achieved due to mixing with the ion-acoustic mode 


als W, is close to uen0 seed Beat frequency mixing of cO., laser 
beams with wavelengths of do = 10.2470 (R(20)) and hy = LO. 2605,.UR CLG) ) 
yields w, = DE Os Prom mi sures hov26. 5.7), 5.8, and ooo Atute 
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seen that the resonance for this mode is very broad and a value of 
> Bee could be expected over at least 80cm of the 1 meter solenoid. 
The above discussion indicates that suitable plasma 
‘ = 12 
conditions could be attained in a laboratory to yield values of a > 4x10 
for the mixing of radiation with wavelengths of either 9.6\m and 10.6un, 


or 10.247um and 10.2605um. For either case the evolution of the inter- 


acting waves should be similar, as predicted by equations (6.7). A 
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condition for the validity of the quasi-static approximation is given 

by equation (6.6). The plasma conditions assumed for the beat frequency 
mixing of 9.6um and 10.6um radiation (T_=100eV and n.=7.75x10"°cm °) 
imply a value of k3A570. 33 and ¥,=3-8x10" sec For the case of 
mixing radiation with wavelengths of 10.247um a quasi mode (damping 
rate is almost as large as the frequency) is driven and aah eUevalirntyaens 


Thus for either of these cases the quasi-static approximation is valid 


if the temporal width of the pulse to be amplified, aoe satisfies 
cog 
a Zo 3x10 sec (6.9) 
In order to illustrate the amplification of a pulse using 


this process, equations (6.7) have been integrated numerically assuming 


the following conditions: 


aT = 9.6um 
ho = 10.6um 
ny =e 7.5 Ste ee 


Plasma length = 80cm 
rae : ; 10 2 
Initial pump intensity = 1.6x10°~W/cm 


Input pulse intensity = I, (t) where 
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of De Wfeme at 0.5 ns and falling off to zero again at 1 ns. The above 
parameters yield a=5.7x10 +4 and in the absence of pump depletion the 


whole pulse would be amplified by a factor of 1500. 


The results of these simulations are illustrated graphically 
in Figures 6.2, 6.3, and 6.4. In each of these figures the intensity 
is plotted on a logarithmic scale as a function of axial distance down 
the solenoid axis at three different times. Plasma is assumed to exist 
only in the interval 0-80cm and a is therefore set to zero in the 
interval of 80-120cm (i.e. no mixing takes place in this region). Figure 
6.2 illustrates the pulse propagating down the solenoid for a case where 
there was no beat frequency mixing. The pump beam intensity was set 
to zero for this case. Figure 6.3 illustrates the growth of a pulse 
which initially had a peak intensity of 10° wens In this case the 
peak pulse power has been amplified by "an factory of about 250.) This) ts 
considerably less than what would be attained if pump depletion were not 
important. The pump intensity at the three different times is also 
plotted in this figure. Figure 6.4 is a similar plot except the peak 
power in the pulse was ier ene before it was injected into the 
amplifier. The interesting feature of this calculation is that the front 
end of the pulse has sharpened considerably during amplification. 
Initially the pulse rose from zero to its peak power in 0.5ns. After 
amplification it rises to peak power in 0.13ms. In fact the rise time 
of this pulse is becoming sufficiently rapid that the validity of the 
quasi-static approximation is becoming questionable. The reason the pulse 
sharpens in this method of amplification is that the pump is depleted 


near the leading edge of the pulse. As a result only the leading edge 
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of the pulse is amplified. The higher the intensity of the injected 
pulse the steeper the leading edge becomes during amplification. For 
pulses with very sharp leading edges, the quasi-static approximation 


breaks down and a more sophisticated transient analysis must be done. 
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6.2.2 Transient Analysis 


In Chapter 5 a set of equations which describe the 
evolution of a pulse of electromagnetic radiation propagating anti- 
parallel to another electromagnetic beam with a different frequency in a 
plasma were derived. These equations ((5.65), (5.66), and (5.70)) account 
for transient effects in the electrostatic mode. Before these equations 


are solved two additional approximations are made. 


iin) the integration of (5:70) 


A, (xtc T,t-tT) ¥ A, (xtc t,t). This is valid when A, 


2 Z 


a 
and n,are Slowly varying functions in the moving coordinate 
system. 
erCx= Cys Chiswie valadvicmiwe> sais, 

2 1 2 pe 

With these approximations, the equations to be solved are summarized 


below. Primes have been dropped for clarity. 


% 
= n 6. 0 
[3 +2c,9 41] A, (x,t) Ry aks ec) A, (x,t) (6.10) 
[3+] A, (x,t) = R, n, (x,t) A, (x,t) (6.11) 
cal diy ach 
Ng (Xt) = I ( A, (x-c,T,t) A, (x-c,T, the 3 D(k,,t)dt 
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2 2 
AU AG) Vv Ww 
oe r, = chee (6.14) 
20, 2, 
& - 3/2 
aie 2.9x10 ne en A/T, (eV) (6515) 
ck, 
Cy = a, (6.16) 
D(kyt)=—=— f D(kz,0) e "dw (6.17) 
TT =co 
2 
k, X_ (1tbx, ) 
D(k,,w) = - (6.18) 
° 4mm Ea eee 
iwv.. 
b=l-a a= ae (6.19) 
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and Xo and Xe are defined in Appendix B. 


The above equations are equally valid for beat frequency 
mixing with a difference frequency near the electron plasma frequency or 
the ion-acoustic frequency. However, in the numerical integration a 
timestep is limited to being much less than the period of the beat wave 
and consequently a prohibitive amount of computer time would be required 
to integrate the equations if the beat frequency is close to the electron 
plasma frequency. In this section solutions for the case of the beat 


frequency being close to the ion-acoustic frequency are reported. 


For the purposes of these computations the assumed plasma 


conditions correspond to those of the MHD simulation reported in Chapter 


3 with an initial density of sox Since Figures 5.8 and 5.9 indicate 


165 


O.. 4 AOD ue ie A ; ) | 
| Ae ie #8 @ - ok or 


tar.a) ea eR ea 
2) un i ' re: 


. 
) 
AME. 

ag nA 


Mera). | Peele gh Spree ak 
Rerci. eer s: | i 2 ra 
a. ies Heche Man aee Ween) 


u; 


} aie ; eg ny re ' 
7 T4i~ | | ¥. me 8 4 rs 
Ct pe b + a)Al = wit aa uFLA 
Saae ", On cee hemes 


‘ at Ae : oe @ 

et a 

CHT wy) See. gree 
cus, «OJ | nee yors, baat 


Rael 
' 


ay be | 
a a «valine hint Err »s 
yntoupa tl ‘ane 7od, bilev ab tiisienas vin saves ovots oith| on 
ro waaaiysie panpailg ongioet® ad? tase cneugai Weanrel hth » cite ig 
[a 

bank vuypsseh Santiavc ats ot Yoel vpmaibupan®’ > ea 
rn en ond a ee om 


tcetlapint lt fitecam ‘enka amocoan. > haihani namie 


nici ihe th asi Miter <i | ay 
suit fa To exeg. 80? enaxgniye ootaan why const nee 


aa 


saasaegen tne abun rt ofsuciinn uh St 02 iodo’ pated ee 
nz ne seen cue May et 


vat > 


2 
"2 


166 


25 the ion mode is very broad, it is reasonable to approximate the 

plasma being uniform. A plasma with T=160eV, T,=120ev, and no=2.5x10"/cm™> 
is assumed. The wavelength of the pump beam is 10.247um Q,) and the 
wavelength of the pulse to be amplified is set to 10.2605 um OA). This 


yields a difference frequency of w $20,9810 haceue and closely corresponds 


3 
to a maximum in the plot of a versus Wy in Figure 5.2. For these 
conditions &=6.0681002¢, By assuming an interaction length of 80 cn, 


the input pump intensity must be less than Ws Ore wens to satisfy 


equation (6.4). 


Figure 6.5 shows the real and imaginary parts of D(k,,W) 
as a function of w for T=160ev, T,=120eV and n.=2.5x10"/em >. Figure 
6.6 shows D(k,5T) as a function of t for these same conditions. It is 
noted that the real part of D(k,,w) is even, while the imaginary part 
is odd as is required to make D(k,,T) real. The plot of D(k,,T) versus 
Tt shows that the density fluctuation level at time t is only dependent 
on the driving forces in the time interval from t-T to t where T is the 
period of the beat frequency wave. This is characteristic of a heavily 
damped oscillator. To illustrate the effects of reducing the damping 
rate similar plots of D(k,,w) and D(k,,T) are shown in Figures 6.7 
and 6.8 for the case of T=160eV, T,=20eV, and n=2.5x107/. Here a much 


sharper structure is seen in the frequency spectrum and D(k,,T) is seen 


to damp out after several periods. 


To illustrate the importance of transient effects without 
the complications of pump depletion and inverse Bremsstrahlung absorption, 
a calculation has been done which assumes an input pulse which rises 


5 2 AL. ; 
instantaneously to a constant value of 10° W/cm” was injected into the 
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solenoid antiparallel to a beam with an intensity of S10 Whom. 

For this calculation the effects of inverse Bremsstrahlung absorption 
have been neglected. The initial pulse intensity (10° ene) is 
sufficiently low that the effects of pump depletion are negligible. 
Figures 6.9 and 6.10 show I> I,, and In, | as a function of S (where a 
is the distance in cm from the pulse front) after the pulse front has 
travelled 40cm and 80cm in the plasma. For the case of Figure 6.10 

a quasi-static analysis predicts that the pulse front should have 
experienced an amplification of a factor of 1440 and that the portion 
of the pulse near x=3 em,which has only travelled 77 em in the plasma, 
should be amplified by a factor of 1090. The transient analysis and 
quasi-static analysis agree at x=3 cm but transient effects lead to a 
smaller amplification in the pulse front. Comparison of Figures 6.9 
and 6.10 shows that the further the pulse has travelled in the plasma 
the larger the value X must be before the transient analysis agrees with 


the quasi-static analysis. 


A similar calculation has been made to illustrate the 
importance of pump depletion. Again, it is assumed that the injected 
pulse rises to a constant value instantaneously, however this time the 


a Z 2 : 
initial intensity of the injected beam is 10 5 W/cm and the intensity 


of the pump is 1/8e10 7 Wem For these conditions a quasi-static 
analysis of the pulse front predicts an amplification of a factor of 

6163 after it has interacted over a region of 80cm. Figures 6.11 to 

6.14 show I> I, and 2\n, | has a function of x after the pulse has travelled 


40, 60, 70 and 80cm respectively. From Figure 6.14 it is seen that the 


u J 
maximum amplification is a factor of 100 and occurs at x=0.6cm. It is 
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interesting to note that up to the time the pulse has travelled 70cm 

in the plasma I, (x) is a monotonically decreasing function, whereas 

after the pulse has travelled 80cm I, (x) experiences some regrowth behind 
the peak of the pulse. If the pulse is sufficiently sharp the phase 
relationship between the electrostatic wave and the two electromagnetic 
waves can be such that energy is transferred from the lower frequency 


waves to the high frequency wave in this region. 


A calculation with an injected pulse with a more realistic 
initial profile has also been made. The injected pulse is assumed 
to be of triangular shape rising from 0 at t=0 to age Gia at t=50ps and 
falling off to zero at 100 ps. The intensity of the pump wave is again 
assumed to be TsO 5” Wen Figures 6.15 and 6.16 show I> I, and 
In, | as a function of x after the pulse has travelled 40 and 80 cm in the 
plasma. It can be seen that the maximum value of the signal intensity 
has moved ahead and has a value of about 80 times the peak value before 


amplification. It is also seen that the pulse width has decreased from 


50 ps to about 30 ps during amplification. 


The above analysis indicates that the process of beat 
frequency mixing in a plasma could be used for the amplification,and in 
some cases, the shortening of pulses of electromagnetic radiation. This 
type of analysis could also be used to examine Brillioun backscattering 


from a laser heated plasma. 
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Figure 6.7 Real and imaginary parts of 
D(k3,w) vs. w for Tg=160eV 
Ty=20eV and no=2.5x1017em- 


Figure 6.8 D(k3,t) as a function of t 
corresponding to D(k3,w) in 
a Figure 6.7. 
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CHAPTER 7 


Conclusions 


A two dimensional numerical model of a laser heated plasma 
in a solenoidal magnetic field has been successfully developed. The 
model is based on one fluid two temperature MHD equations. By solving 
the MHD equations in a moving coordinate System defined by the magnetic 
field lines, numerical diffusion arising from the strong anisotropy 
of the plasma has been eliminated. This allows for a more coarse 


computational grid to be used which leads to savings in CPU time. 


Care has been taken to make the computer routine as versatile 
as possible. One example of this is that,to a large extent, initial 
conditions as well as parameters that control some of the internal 
processing are specified through an input file. In this way the routine 
can be a flexible and useful tool for users not familiar with the 


numerical techniques used to solve the equations. 


Results from sample calculations made by this routine indicate 
that the assumption of radial pressure balance is valid for a wide 
variety of problems. The routine has been constructed so that full 


radial dynamics can be calculated or radial pressure balance can be 


assumed. 
The routine has been used to provide numerical backup for 
19=21 
gas target experiments performed by A.A. Offenberger et al. Results 


from this study indicate that laser heated gas targets can provide an 
attractive plasma source for the study of laser-plasma interactions. 


Current near future plans for this routine include more gas target studies 
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and the numerical modelling of the short (1/2 m) solenoid experiments 


planned by A.A. Offenberger et al’. 


A plasma parametric amplifier has been proposed for amplifying 
laser beams in the 11-14 um wavelength range to very high intensities. 
The plasma section of the amplifying device can be relatively short 
(less than one meter) and only a very coarse control on plasma density 
and temperature needs to be maintained. Because the idler wave is an 
electron plasma wave and is Landau damped the process of energy transfer 
from the pump beam to the signal beam becomes irreversible. Further 
analysis suggests that this device could also be used to amplify and 
temporally shorten ultra-short pulses of infrared laser radiation. 

Pulse amplification could take place through beat frequency mixing 
with a beat frequency near the electron plasma frequency or the ion- 


acoustic frequency. 


an 


Ne an ‘ae 
ajoamiisaxe btonetos (a SVL) prods oe fe piliatos Taokxomse § iq 
he 38 sxayzedse30 ae <d 


iPS ams 


o 


+6 sno feytrus sevecn Yvav e°eLRS, Bae (XoIen ene melt 


‘ Wie cna: ie a ae ae 


7 YN - + 


‘it ie ., oe 
ieee ate Vie « 4 oe ed 


12 baeoqess xand sla Se Ree a | | sls peawies pee Lh) Ao. " 
2 


‘Loetteutar ed oad estwab graietiiqug: sn7 26 os ti ooe" 


sme ie} 


ju 4elbt ods wateos® ~ihadiajebag 86-07 \nboen ot Deregted | 
\ 7 


a 


mo &O peeooyq sia Hoqeoh eehied at Son wvee coe elGo aor 


al diatevers? eemoced mutt dtiagl?| ec? of? was: oepg one's 
& £3. ¢ 


se 


> \ i ' 
iui ot bate wdicele Blwes epkwehs etd? cae ageaggnd ebaye 


1 


bhan Setal bere 21 , ooalire -pfretewantsiy se27ods vi oat 


mF 


yxeauper tl. 2ned dqucidy eoety dae tigen eoksas li iges, 


’ i A i f 7 5 
v5 veresoerl emeaty morioeia es Whee Vvoup ett isod 6 dak 
‘ 4 Sa - ie 


sadness nti 


Lanett agtd wese O42 eget i ogoe eta ead ieil sits nd eatth ¢ a8 


. 


Take 


2 


JM. 


A.L. 


Ec. 


Re). 


BIBLIOGRAPHY 


Dawson, A. Hertzberg, R.E. Kidder, G.C. Vlases, 
HOG." Ahlstrom, and Lic, Steinhauer; Proceedings of 
the Fourth Conference on Plasma Physics and Controlled 
Nuclear Fusion Research, Vol. 1 (IAEA, Vienna, 1971). 
Hoffman, and G.C. Vlases; Appl. Prive bett... 4/12); 


SION 973 jt 


Steinhauer and P.H. Rose, in Proceedings of the First 
Topical Meeting on Technology and Controlled Thermonuclear 


Reactions, edited by G.R. Hopkins, United States Atomic 
Energy Commission Report CONF-740402 (1974), Vol. Zee « 
Richtmyer and K.W. Morton, Difference Methods for 


Initial Value Problems, Interscience Publishers (1967 ):. 


F. Hertweck and W. Schneider, Institut fur Plasmaphysik Report 


IPP6/90 (1970). 


W. Schneider, Institut fur Plasmaphysik Report IPP1/24 (1972). 


H.A.B. Bodin, J. McCartan, I.K. Pasco, W.H. Schneider, Phys. 


Fad astd'o «1341 (1972). 
Steinhauer, Phys. Fluids 19, 738 (1976). 


Offenberger - Private Communication. 


- Milroy, C.E. Capjack, and C.R. James, Plasma Physics noe 


96901977). 


Krupke, Nineteenth Annual Meeting of the Division of 
Plasma Physics of the American Physical Society, 6K3. 


Braginskii, "Transport Processes in a Plasma", in 


M.A. Leontovich, Ed., Reviews of Plasma Physics, Volo, 


Consultants Bureau Enterprises (1965). 


179 


| mead 


: ; | ) ‘ Ws Me ne 
{ ary a id vay ap - 


23 aenltteg@xe Lsumboe ( siy evr) vind Py Mog 


Pada ot 


gurettiqus 10? bagoqei¢ nend end yates tome absapaionna acon e AC nay a ‘ 
eal atecetnt dgbd ered of ogres “gna bors eit - sl 98 

prote viewtiated od aed Sntved aibyhietaay ils so mn kasaey: 

apee eae te eka hes Cyssen 


= - 
ah. aven Ga lbt. eds sadased boaaiesotep ed. 69 abese avetar 


‘gimeh ameahey ate dear eo eee 
“ne? ygtahe SY aasserg odd foquebvehaal Vf bow ‘gvete_coneteg ae 
aftr? widlereverte anooed med. Lsagie #c3 ti asc qe 7 
bas viitdaw, eo bea of wale Bhyos iota wis sak wansygil 
tdi tyeet bere tat Se enaleg, srordesenity, apauede 10 

witxke Yaeuee st 2d dgueotds enaly Seay fuwon narsestitgee, a 


a wr i 
‘sot ay S60 veewenetl egeatc soe santa sald hae iit) bs aq 


1d 


Laas 


JM. 


A.L. 


L.C. 


R.D. 


BIBLIOGRAPHY 


Dawson, A. Hertzberg, R.E. Kidder, G.C. Vlases, 
H.G. Ahlstrom, and L.C. Steinhauer; Proceedings of 
the Fourth Conference on Plasma Physics and Controlled 
Nuclear Fusion Research, Vol. 1 (IAEA, Vienna, 1971). 
Hoffman, and G.C. Vlases; Appl .7 Phys. Lett ., ad, 


OPO MCL 97S). 


Steinhauer and P.H. Rose, in Proceedings of the First 


Topical Meeting on Technology and Controlled Thermonuclear 


Reactions, edited by G.R. Hopkins, United States Atomic 
Energy Commission Report CONF-740402 (LOVE) Vole tp t.63 
Richtmyer and K.W. Morton, Difference Methods for 


Initial Value Problems, Interscience Publishers (1967). 


F, Hertweck and W. Schneider, Institut fur Plasmaphysik Report 


TPP6/90 (1970). 


W. Schneider, Institut fur Plasmaphysik Report IPP1/24 (1972). 


H.A.B. Bodin, J. McCartan, I.K. Pasco, W.H. Schneider, Phys. 


Pinreasest yt 1341). C972), 

Steinhauer, Phys. Fluids 19, 738 (1976). 

Offenberger - Private Communication. 

Milroy ceo Capjack andr eor, qariies Plasma Physics 19, 
SSIiCLOT 7) . 

Krupke, Nineteenth Annual Meeting of the Division of 
Plasma Physics of the American Physical Society, 6K3. 
Braginskii, ''Transport Processes in a Plasma", in 


M.A. Leontovich, Ed., Reviews of Plasma Physics.) Volo. 1, 


Consultants Bureau Enterprises (1965). 


Ls 


2elxogeTods! dovseaal Tevinkk 


rotvobvso rod .W bas atcadel if 2 ete a a sinkatl Oi 


at 


tee anodeY .kvk. Oe 


“ye dave’ bop aedeT Noedé LepelservesaT af" "Ok 


biol? .8gis 


Via yer 


ui boilastado bee gobeqtt emeal? 


ae pa — lll gs 400 bee mal omlhneee 


fe . a 7 r » . On 
si PB». , ee ag) co 
aie x i a Pal a Be 


satin? a hetven" 


(0aet) ets ney sieeve sot a 
bee, MS, Ae noseriot 4 oe 
pROORLY, iD jditenabi® AS. _sebbaga wie ; 


a, 


4 


‘etsauets 


el groeeeW 


ye ae = f 


a 4 / a 
avueas Vee YRAzend tmoth Legend sasreed nt > Sarssees, a 
208 gt dev (sat 
. : , 7. 
us a 
TEE) GORE GR eablall: .eyad , ROAGED) > Rep Dine RARE ianT ee 
Pare a ee eg a: iis apgriting 220 ee a: 
(Sith CSc 4 _ 
Poet 1. a 
‘ie 465 * , ae sf ie he! 4 ae) Be vm aF3g7 eden} 10 ‘anak? is ; 
C : rn - q 
a? ee i aD 


last > 
oy Aad vehoyisy 


i 
dare: fi bimuntie’ 


esol danicaamy nage Steg sodsrwl 24 wy 


. Ve - ¥ : # 
ry ve " 0! 
by 
; _ 
¥, ties 7 7: _ Dy 
od ana , as 
y in ae . : wT) ul i 
ih ais z) aoe f 
& > ia 7 
. AY a 77 é ‘| i 


ean vat Ay A 


?? 4 aw “ 
Aa sA4i8 oe i 


a 
an 


7 _ abe ee aia ee: 


energie a 


7. 


«5 Lae ep 


le. etharedagn ye Shee on 
7 Te) 
AND Be red anyat ary a 


it - 
pt aapuselne slink Pe: 


a: oh at Ate 


(ne fen aly Sut Sate “ 


i ny i 7 ; - 
i oe Wee cea 7 2 i. 
el 7" a a 7) a . 
«he i om, ante am ome wi 8 ; 2% 


saereye ates ‘as pata 


7: mt 


bank 0 i, onan 
att ae a la fe 
b> oe woth : ra 68 
be tl a sons 


— aa | 
veOVe ny _ 


Paes 
28. 


29. 


30". 
ol. 


52. 


O23. 


34. 


Bs 


36. 


fe 


1g1 


A.N. Kaufman and B.I. Cohen, Phys. Rev. Lett. SOR LoO Gu logs). 

B.I. Cohen, Ph.D. Thesis, University of California, Berkeley (1975). 

B.I. Cohen, M.A. Mostrom, D.R. Nicholson, A.N. Kaufman, C.E. Max, 
and A.B. Langdon, Phys. Fluids, 18 47 OO 1975) 

C.E. Capjack, and C.R. James, Can. J. Phys ..v53,)'2606 (1975). 

T.H. Stix, The Theory of Plasma Waves, McGraw Hill (1962). 

Ried Tesch: J.G. Marinuzzi, C.P. Robinson, and S.D. Rockwood, 
Laser Focus, May 1976. 

L.C. Steinhauer, Phys. Fluids, LO 1619.76). 

E. Yablonovitch and J. Goldhar, Appl. Phys. Lett. Za OOO 7 Ae 

R.A. Fisher and B.J. Feldman, Optics Letters, gy Ow COZ 7) 


I, Lindemuth and J. Killeen, J. Comp. Phys. LS PLL C197 3 ye 


N.H. Burnett and A.A. Offenberger, J. Appl. Phys. Os 2ioo” (19 74)% 


2B 


© 


exer): Beas , ee ail ab) tte neal rt bee. AOR GED aon 


> maattuen .4., peguenae Pa ae 


\e 


= 
a ne 


iw J its a 
C2CCL) O80 BE ~abtol? sett proba Ak 


teen) EER eS raat are ners a ‘te: wrxail’s wat: Pir wt 7 7 


wink .O.8 bas pees i Pr. BERNER OY es he canes stl Me 


CNVREY £00 of eves sotrg0 ,Awele, iin bow vealy na 


(even) fl EL sayat .gv0d ok ttn Ht Ay hon dsueboned ef 


St [ee ate, Ayes % , rag edie EAD, aes ben xtonte ta) 


ahd 
watet eye aati sane ly 4 
on 


£OTRL) GdtL OL leklesls aya secntotade tm 


20,974) .9yat .fena Jaunbiod K hen doaivonokdiy, =e 


A 
ANE Va —) 
. = 
Ss yy i 
§ - 
' f 
is 
i 


Appendix A Some Programming Details for 2-D MHD Code 


This Appendix contains some of the programming details of 
numerical model described in Chapter 2. All equations are written in 


dimensionless form as described in Chapter 2. The derived quantities are: 


Nios Plasma density, no 

2 Se Electron temperature, T. 

a Ion temperature, qT; 

WV - Axial fluid velocity, ue 

A - Area between shells 

R - Shell radii 

Woes Square of shell radii, Ro 

B = Magnetic field, B. 

U - Radial fluid velocity times radius, Rv 


Any two of A, R, and W can be derived from the third 
however all three are kept as internal variables in the numerical 
solution for convenience. When the solution employs full radial dynamics, 
W is solved for, and A and R are derived from W. When radial pressure 
balance is assumed A is solved for, and R and W are derived from A. 
The magnetic field B can also be derived directly from A. Initial 
conditions specify the magnetic flux in each shell, ae and this is a 


constant. B can then be derived from 


The difference equations are solved on a computational 


grid consisting of M shells and NX xX-points. 
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Ael Grid Structure and Two-Step Scheme 


The position at which the variables are calculated on the 
x, S grid is illustrated in Figure A.1l. Note, x and s have been 
declared as integers in the routine and are used to specify the location 
of a quantity on the computational grid. The quantities N, V, TE, and 
TI are calculated at the cell centers while U, W, and R are calculated 
on the shell boundaries. The quantity A denotes the cross sectional area 
of a cell at a particular x-point. Quantities that are calculated at 
the shell centers and are subscripted with an (s,x) are assumed to be 
at the x'th x-point and between the (s-1)'th and s'th shell boundaries 


as illustrated in Figure A.1l. 


All variables are calculated at the same time t. In order 
to obtain second order accuracy in the timestep size, At, a two-step 
method was used to solve the equations. First the solution at time t 
is used to find temporary values at time t + At/2. These temporary values 
are used to calculate transport coefficients and spatial derivatives in the 


equations. The solution is then advanced a full timestep from t to t + At. 


At time t the value of all quantities 2 are stored in arrays 
denoted by oe 7 and (Q2) . Gs After the first step in the two step 
b] >) 
scheme Se e contains the temporary solution at time t + At/2. Based on 
b 


these values of Sa , transport coefficients and spatial derivatives are 
> 


calculated. Based on these, and the values in (92) . a the solution is 
b 


advanced from time t to t + At and placed in array Jo x (Q2) . x is 
> b 


then set equal to ae ie and the process is repeated. A flow-chart 
> 
illustrating the gross features of the two-step scheme can be found in 


Figure A.2. 
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A.2 Difference Equations 


The difference equations used in the routine are based on 


the partial differential equations in Section 2.4.5. All of the equations 


are of the form: 


Q = RHS (AvL) 


where RHS has terms involving first and second order spatial derivatives 
and time derivatives of other variables. In the code the equations 
are solved in a sequence such that the required time derivatives of 
other variables are evaluated first. Expressing the time derivative of 


the above equation: 


td Q' a O° 
Q = aa = RHS 
or 
i 7 eh0n)  * Stes pus 
zine x 9X : 
or (A.2) 


' = ° za A 
Ses Q ot Qs ,x 


where fa - is the value of ue . at time t and Ss . is the value of 
9 > ) >) 


Q at time t + 6t and é6t is the timestep size. In the two-step 
S,x 


scheme 6t = > At for a half step and é6t = At for a full step where At 


is the timestep size for a full step. 
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Central differences are employed throughout when evaluating 
spatial derivatives. In all cases the partial derivative of 9 with 


respect to x is written as: 


(A.3) 


where Ax is the grid spacing in the x-direction. In the present 

version the computational grid is uniform in the axial direction so 

Ax is a constant. Differencing in the radial direction is somewhat 

less straight-forward since shell spacing is not uniform and derivatives 
on the shell boundaries as well as at the cell centers are required. 
When the value of a quantity that is known on shell boundaries must be 
calculated at a shell center, simple averaging is used. When the value 
of a quantity that is known in shell centers must be calculated on shell 
boundaries a weighted average is used. Two variables are defined as: 


Ces) ae 


SUGRy. + GR) alee ea 


Rl 
(CR), + CR), 


Here (AR) . is the radial grid spacing of the s'th shell. The value 


of 2 on the s'th shell is given by Q 41/2 “ 


+R2°9 CAS 5) 


Se oe stl,x 
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When Q is known in shell centers and “5 is required on a shell boundary, 


the necessary differencing is straight forward. 
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Here oe is the dimensionless value of magnetic flux in the s'th shell, 

and is equal to As across the s'th shell. ae is specified by initial 

conditions and is independent of x and t in the flux coordinate model. 

For cases where Q is known at shell centers and 3 is required at 

shell centers, the derivative is first found on the boundary and then 

averages taken to find values in cell centers. The quantity (1/9 R) 


appears in several expressions in Section 2.4.5. This is easily 


evaluated from equation (2.27). 


ae 
dR 
Ss 


= 2 RB (A.7) 
Equations which do not involve diffusion terms (second 
order spatial derivatives) are evaluated using a straight forward 
explicit differencing scheme. That is RHS of (A.1) is evaluated using 
differences of the types described above and then the value of the 
desired quantity is found at the new timestep through ppplicaiions of 


equation (A.2). 


The use of an explicit formation on the equations that 
have diffusion terms would introduce a very restrictive stability 


condition on the program. If an equation of the form: 


ms 
P) 0 
Sere a 
ox 


is solved using explicit differencing, the timestep size in the 


4 
difference equations must satisfy (see Richtmyer and Morton ) 
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This condition would be very restrictive in the present model and render 
it essentially useless. The use of an implicit formalism eliminates 


this stability condition. The implicit formalism used in the present 


4 


routine is as described by Richtmyer and Morton When equations for 
a variable Q involve a diffusion term in the x direction the term on 
ene RAS of (AL2) ds of the form: 


RHS = a Q +bQ +c 9 + other terms 


s,x-1 S,x “s,xtl 


where the coefficients a, b, c may be spatially dependent and may 


also depend on other variables. Thus equation (A.2) can be expressed as: 


2: x os By étta oS A ate a eae oy xt] + Other terms} 
9 9 ; - A 


In an explicit formalism the terms a - in brackets would be the same 
> 
as oe a in the first step of the two-step scheme. In the second step 
>) 
of the two step scheme, these as well as (other terms) would be based 


on the results of the first step. 


In the implicit formalism used in the present routine 


however the former equation is re-written as: 


S 
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hfZ Vf2 1/2 
3° 
Q + 6t{a Q ne +b Q ed eas + other terms} 


where 


La mH ys : - Ne ty 7 7 - — 
: aa ed |. a al ae 
nt F} ay ‘OF * i bs = 
in ey ; vm ie ve 7 
; Pe mee | \ or el a 
\ aN, <y sp: L oer 00 
i. ee ee im ra) 7 
7 i De i 
© Ka 7 ns N 
sabasy Sma febom Imomezq sta ad avkasta ana ed pace 4 
“i ep t 1 ¥ 
estnuteils oattewsod  ISii¢et en $0 sae wah, auestees a 


traverse ef2 eh heen neat t aarto® sab louk ote ‘metres’ ern 


tes heatatyne od geo (8.A) wotsaune ovat. Oe hintzny, tads0 ao 


(antes suite 


sepa st od Sd Pavdoard sl 


| bared ia ee digas reign) on tise na ‘uae vonsiton cosa O49 


i wien 3 
‘eines ‘e 
Gh apo pe M beef pedatnavis at potaps 3 


‘ 


aN 


7 a 


é 


tnupe mei" weasel baa rogers xe bedtraeab ee et 


nth ‘hokaveyt® 6 aie ok eee antaul ih 6 vlowad Qs 


arrays. renzo *¥ ¢ 


hie sesbAegeh vi lattece 


hog + 0 d 
ide 9 " wig 


oes | 


f iy 


ns at hh 
a > nd a . yt 4 
we en ; 


a 


' 
| | 
fod 
5 > 
es Ba Da: en 


Kak <A 
i? ry ~ § 
eer. ned ote a gene g92e~aMd att Je gies: Feuet Cy 


isa bsau mak neh att ots a 7h 


* 


’ re 


bmaee, “a9 dG mt (eA) eae 


A = 
i> 


Cs Lox, 


os 
od yaa 4 a fe agenda Yaes an a 


Pa) 
<x! — 


“ee stot a) Sait ne 
ue alee ay 
9 rer Chae oo 


Poll a : 0 es 


ie h eins 4 
ead  agemw amenity Re, alee» 


ae i IF: nie 


ai 


> es 
ads: # ea 


Toe ae A 


188 


Here the value of Sas x 2s found in the first step is not directly used 
g > 

to advance the equation in the second step, however it may be required 

for transport coefficients and for other equations. The results from 


the first step are used in the evaluation of other terms in the second 


step. 
The above equation can be re-written in a form: 
-A Q' +B : - ; = 
Sa eS, xe) S,x ae Cue aN are 
where 
A = 
S,xX Z ve 
. b 
Bee 7 ot 
ages 
tes 5 6t 


S 
i} 


° af ° fo) ° 
S,xX oe oD Stia Ce The sae one Sere + other terms} 


The solution of this system of equations and the application 
of boundary conditions followed the procedures outlined by Richtmyer 
4 
and Morton . 
A completely analogous technique can be employed to solve 


equations that contain a diffusion term in the radial direction. However, 


a somewhat more complex technique must be employed’ to solve the electron 
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temperature equation which has diffusion terms in both the radial and 
axial directions. The ion temperature equation has been simplified by 


neglecting thermal conduction in the axial direction. 


One method of numerically solving partial differential 
equations that have diffusion terms in two directions is through the 
use of Alternating Direction Implicit (ADI) techniques. An example of 
the use of such a technique can be found in Lindemuth and Poise 
Basically this technique works by setting up two levels of difference 
equations. In one level the equation is advanced implicitly in one 
direction and in the other level it is advanced implicitly in the other 
direction. Then one timestep uses one set of equations and the next 
uses the other. It is not clear how such a scheme could be used in the 
present two step scheme and so another closely related technique was 
used to advance the electron temperature equation. An equation of this 
form can be written in the simplified form: 


Q = RD + AD + OT 


where RD represents terms in RHS of (A.1) that involve radial diffusion 
terms (second order derivatives in the radial direction), AD represents 
terms that involve axial diffusion terms (second order derivatives in 


the axial direction), and OT represents other terms. The above equation 


then split into two parts: 
(Q1) = RD 


Q = (01) + AD + OT 
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A solution for (Q1) is found by using implicit techniques and this 
solution is inserted into the second equation replacing RD. The 
solution for (Q1) involves advancing 2 a timestep assuming radial 


diffusion terms are the only terms on the RHS. 
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A.3 Laser Heating 


The equations that govern the propagation and absorption 
of the laser beam are given in dimensionless units in Section 2.3.5. 
The MHD equations are solved on a computational grid with NX axial 
points. The laser beam is assumed to be input at the end of the 
solenoid specified by the NX'th axial point. Laser beam power, specified 
in dimensionless units P(x), is calculated on axial grid boundaries, 
and the power absorbed per unit length, E(x) is calculated in cell 
centers. The indexing of P.. and E relative to the indexing of MHD 


quantities is illustrated in Figure A.3. 


The routine contains the option of two types of axial 

boundary conditions at the point x=l. 

G1) Boundary conditions are the same as those at 
the other end of the solenoid. This boundary 
condition allows for free streaming of plasma 
out the end. 

(2) Symmetric boundary conditions. This boundary 
condition assumes that the solution is symmetric 
about the point ED. i.e. thespoint ES) represents 
solenoid center and by symmetry arguments, the 
solution is required only for half of the solenoid. 

A more detailed description of these boundary conditonns can be found 
in Section A.4. When symmetric boundary conditions are employed the 
beam is assumed to fold over on itself around the point x=2. This is 
because in a symmetric problem a beam is assumed to be injected from 


both ends of the solenoid. 
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The total cross-sectional laser power is given on the axial 
grid points as Pe The relative intensity of the beam in each shell is 
specified by an array See which is used to define the radial profile 
of the beam (Gaussian for examples in this thesis) and allows for an 


axial dependence as was required in Chapter 4. 


Using the laser absorption coefficient given by Johnston 


5) 
and Dawson and results of Section 2.3.5, k is given in dimensionless 


units as: 
: 
N 
ko = K 3/2 Us boas i 
ai 
e 
where 
108 NN 
ea Sas, eR aS 
+ By2 fe) 
fe) 


As described in Section 2.1.5 the absorption coefficient 
was obtained by averaging over the radial profile. A weighted average 
is used with the weight at each radial position mrdeaee ta at to the 
beam intensity at that point. In the finite difference scheme the 
averaging is over discrete shells and weighting is proportional to 
total beam power in each shell. The beam power in each shell is proportional 


tol (PR) Age |e thus: 
S,x S,xX 
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ey mr l ae ep 


The propagation of the laser beam is described by: 


By as 
Maa Th ee P (2.49) 


Normal differencing techniques described earlier in this 
appendix can be employed to solve this equation,however it is found that 
the sharp discontinuities expected in the bleaching front lead to great 
difficulties for this case. There is also a problem in the propagation 
of a sharp wavefront through a semi-transparent plasma. Instead the 


following approach is employed. The timestep size is restricted to: 


where m is an even integer. At is not the same size as At, the timestep 
size for hydrodynamic quantities,however m is continually adjusted so 
the time in laser calculations never differs from the time in MHD 

: Ls Ax : F en 
calculations by more than a ahs With this definition the bean, 


propagating at a speed c, propagates an integer number of Space-step 


in each timestep At. 


The beam profile P.. is calculated by advancing it by m 


small timesteps of size for each full timestep of the main routine 


and by 2 small timestep for each half step of the main routine. The 
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laser power P.. is advanced in each of the small timesteps through the 


solution of: 
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where Pe represents the new value of Fe and P represents the old value. 


The laser power that is absorbed per unit length by the 
plasma, E, is defined in such a way that energy is conserved in spite 
of numerical errors which may be made in the first two or three shells 


of the beam front. E is defined as: 


Now the energy absorption rate per particle (e,). in must be 
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defined. The total power absorbed in a sheli is proportional to both 
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All of these conditions can be satisfied only if: 
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A.4 A Users Manual for MHD-2D Routine 


In this section some of the various features and options 
incorporated into the computer routine are described. An explanation 
of the parameters that are specified through the main input file are 
given. A listing of the input file, which contains a brief description 


of each of the parameters, can be found at the end of this section. 


A.4.1 Start, Stop and Restart 


When a simulation is started at a time of t=0 the parameter 
NTIME must be set to 0. The simulation will then run until either NTOTAL 
timesteps have been taken, or the simulation time reaches TMAX seconds. 
If NTIME# O the routine attempts to read input data from Fortran unit 
#2 so that it can start from the NTIME'th timestep of a previous 
simulation. Fortran unit #2 must be attached to a file or device which 


contains the unformatted output of a previous simulation. 
A.4.2 Initial Conditions 


If the simulation is started at a time of t=0 the initial 
conditions are calculated from various parameters input through the 
input file. If the routine is being restarted from a previous simulation 
these parameters are ignored and the initial conditions are read directly 


from Fortran unit #2 as explained in Section A.4.1. 


The computational grid used for the numerical calculation 
consists of NX x-points and M shells. The spacing of the x-points is 
always uniform however the shell spacing can vary. The initial shell 
spacing is specified through the parameters RO1 and W. The first shell 
has a radius of RO1 cm and the width of the second shell is Wcm. The 


width of the i'th shell is ate W where a is calculated by the routine 
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to be such as to make the outer radius of the last shell equal to the 
specified radius of the solenoid. The solenoid is LO cm long and has a 
radius of RO. These values of LO and RO are also used as the basic 
units of length and radius for the transformation to dimensionless 
variables. The other two basic units needed for the transformation to 
dimensionless variables (see Section 2.2.3), are given by NO ane and 
TO eV. If the initial density and temperature profile is to be uniform, 
the plasma will have an initial density of NO ae an initial temp- 


erature of TINT eV and an initial magnetic field of BINT Gauss. 


The density and temperature can be given an initial profile. 


The density is specified through parameters NO, RIN, and R2N as: 


NO ro. 


Nir, t-0) =F agrG@ RIM Rony 


RIN, and R2N are input in units of cm. The temperature profile is 


specified through parameters TINT, RIT, and R2T as: 


TINE 


ei St Tere Ser Ray cy 


A uniform density and temperature profile in the radial direction is 
specified by setting RIN >> RO, R2N << RO, RIT >> RO and R2T << RO. The 
magnetic field is set to BINT Gauss at r = RO and is adjusted for 


r < RO so that radial pressure balance exists. 


An initial density profile can be specified in the axial 
direction through parameters Ll, L2, L4, and L5. The initial axial 


density profile is given by: 


Pf \ - ; f 1 ' . La a nt 
rar an : 
: | ha ~ ee . 

yi = ae 


sit og Laupe ‘ee deat ada Yooautber: pre eleat or mt 


» eo bes anol ao OF at phomeren ait ,  bhematoe ois ‘to Gana 
end off et boee Cate) ona OF bor ad 29 apuley anadt spa 2 0% ™ 


f % at 


e¢elnotanemih 02 nol tamyolanene ods ‘gp stub: tre Aagu0l 3 


ot nottaatotansst sit? 20) hebeos nd bin dbaed o4 xesize SGT,” 


- if 
a> 0% xd ceovts oe. CEYS8) cokQ0ge Mee) Bes teciey 
he f = 


xttny ed of ef elttovg exvsaweme? fica q7tedeh) Letsint $49 Shoe 
fLersamt ao , we OF bo vateeeh peer os avedt Like 


\ Tete. Yo Bible “2 3engee estas ins bak’ Va, THET ms 


alkbove Ista as mbvig 36 76s etusnysgaes haa viinaab off 
og WAT bak UIE OM evosemhi pe yond? bwttinega af 


i 
wt 


Tiss j : 
” a fog ar | ¢ ” oe 
So: TASH MEA = ies "late et am “a 


ue 
ai brave wrogkeeyines Sct °.ho: Sa eran et ages \exk usa bn 


\ 


(ee TOR fork TES PRET vioieiah amma pier * 


°C Tuecaei af 2 Ds ge lak i ie 

uh a tad apr hee ar sat asinine ererveey) haa <othrtale mstane 

od .O% se TR ons, oA Me TEA) 9D >> cena JOR 44 WEE goisoen Bd, spidionae, 
$62 lil saad sie OF » % Ma eee ware of doe af bieky sien 


\? 


wake nin yasnes Eetbas ‘Seda oe OF * ‘a 
pprty ee 


fader, Gia ed | paladin ‘od peo. slain! ethacal Intehat mh)» ae 
Sahat aa Saal be vst a id atatontrag mone 


¢ . 
| cull otha Uhh uphlees yp Sue taka ek weeas 
; he 7 ny 1) a 7 
bens a oe 6h dite, aaa 
7 BG es 4 wf 
: 7 a =) ©’ 
wh i . ; Pas J i ; ie 


S29 dn re NO gin UNO 


N(z, t=0) = { + .001 } - { 


+ .001 } 


LY, *L2,.*L4 and L5taredinput imiantts lof emay initial tdensityprofiles 
such as those used in Chapter 4 can be specified with these parameters. 
A uniform axial profile can be specified by setting Ll = - LO, L4 = - LO, 


i2 << LO, and Loy<<nb0. 


A.4.3 Output 


The main output from the routine is written in unformatted 
form on Fortran unit #3. It is intended that this unit be attached to 
a disk file or a magnetic tape. This output consists of the calculated 
hydrodynamic and laser quantities as well as various other parameters 
that may be needed to restart the simulation or by other post-processor 
routines. This data is output after the initial conditions are 
calculated and after every subsequent NTAPE'th timestep. The output 


is suppressed if NTAPE = 999. 


Formatted output intended for a printer is written on 
Fortran unit #6. This output consists of the hydrodynamic and laser 


variables written in dimensionless form. The output is in matrix form 


and provision is made for only part of the information to be printed. This 


is controlled by parameters NXI, NxXF, Ml, MF and MS. Output is from 


x-points specified by MxI < x < NxF and from every MS'th shell for 


M1 <s< MF. This data is output after initial conditions are calculated, 


and after every subsequent NPRT'th timestep. Output is suppressed if 


1 + exp[(z - L1)/L2] 1 + exp[(LO - z - L4)/L5] 
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NPRT = 999. 


A.4.4 Timestep Control 


The timestep size is adjusted after every timestep. The 
timestep size At is the maximum allowed by the following four conditions: 
1. At must be less than a fraction Al of the maximum 
allowed. by the stability condition. The stability 
condition is specified by equations (1.1) and (1.2). 
2. The electron temperature in any cell cannot change 
by more than a fraction A2 in a single timestep. 
3. Timestep size cannot increase to more than A3 times 
the previous timestep size. 


4. At must be less than DTMAX seconds. 


The first timestep must only satisfy conditions 1 (with 


Al replaced by All) and 4. 
A.4.5 Laser Parameters 


The laser beam power as it enters the solenoid is specified 
through parameters PWR1, PWR2, PWR3, Tl, T2, T3, and T4. The beam 
power is 0 at t = 0, PWR1 at t = Tl, PWR2 at t = T2, PWR3 at t = T3 and 
O at t = T4. Power levels between the specified times are calculated by 
linear interpolation. Power is specified in Watts and time is specified 


in seconds. 


The radial intensity profile is Gaussian as specified by 


equations (4.1) and (4.2). Parameters needed in equation (4.2) are 


j = ls = = 
input as A i RLO, at BS, and L, ia 


Sometimes it may be desirable to artificially control the bleaching 
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velocity of the laser front. This is accomplished by setting VLAS 
to the desired bleaching velocity. If no limit is desired VLAS is 


set to the speed of light. 


In Section A.3, an explanation is given of how the laser 
beam transport equation is advanced in small timesteps for every timestep 
of the main routine. Under some conditions M can be a very large 
number and essentially no changes result from limiting M to a smaller 
number. This can result in significant savings in CPU time. M is 
limited to being less than MRMAX. Care must be taken when setting 
this parameter to a small number since it can lead to errors including 
loss of energy conservation. It is very unlikely for significant errors 


to result from this feature if MRMAX > NX. 


A.4.6 Boundary Conditions 


Options exist on some boundary conditions as specified in 
Section 2.5. If TRBC = . TRUE .,° the’ temperature ji remains a constant 
ac r= RO. PIteTREC =.“ FALSE”. oT _/ds = OQ" aeere =" RO.” This’is 
equivalent to assuming a thermally insulated boundary. The thermal 
pressure P is assumed to satisfy a boundary condition at the solenoid 
ends of the form 3P/3x = constant. This boundary condition is imposed 
by assuming the pressure at x-point 0 is (1 - TDP1) times the pressure 
at x-point 2 and the pressure at x-point (NX+1) is (1-TDP2) times the 
pressure at x-point (NX-1). If NBOUND = 1 the solenoid is assumed to be 
open ended and similar boundary conditions are imposed on each end. If 
NBOUND = 2 symmetric axial boundary conditions are imposed around 


x-point 2. 
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A. 4.7 Miscellaneous 


Artificial viscosity coefficients By and - defined in 
Section 2.3, are set to values AVR and AVX. If these quantities are 
set to values between 1.5 and 2.0 shocks will be spread over several 
mesh points. Artificial viscosity is turned off by setting these values 


to zero. 


When a laser beam is bleaching its way through a cold plasma 
there is no MHD motion well ahead of the beam front,and it is just a 
waste of CPU time to do calculations in this region. Initially, calculations 
are not done for x-points 1 to NXMIN1. Then as the beam bleaches its 
way through the plasma more x-points are added to the region in which 
calculations are made. Calculations are made up to NXMIN x-points 


ahead of the laser front. This feature is dissabled if NXMIN1 < NBOUND. 


The ratio of ion mass to proton mass is specified by 
parameter RM. A deuterium plasma can be simulated by setting RM = 2. 
Before the program can be used for higher z gasses the transport co- 


efficients must be modified to include the z dependence. 


Calculations on laser propagation and heating are made only 
for simulation time t < T4. Thus, if the simulation is to be run with 


no laser heating, setting T4 to a value less than 0 will save CPU time. 


A.4.8 Post Processor Routines 


Readable output from the main routine is very limited. 
Additional information can be obtained from other routines which read the 


unformatted data from the main routine and do additional processing. 


Routine TAPRINT reads unformatted data from disk or tape 
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and prints results from pre-selected timesteps. 


Routine ENERGY checkes validity of the results of a 
simulation by calculating the extent to which energy and mass were 
conserved during the simulation. A more complete description of this 


routine can be found in the next section. 


Routine MPLT3D reads unformatted data from disk or tape 
and creates three dimensional plots of Te» T,, Me Wie? B, and n, as well 
as a plot of the radius of shell boundaries as a funebion or. x.4 EAN) 
variables are converted to natural units and scaling is done automatically. 
Features such as perspecive plotting and removal of hidden lines are 
included. The routine works interactively on a Tektronix 4013 or 4015 
terminal or will create Calcomp files. The routine automatically 
determines if output is to a Tektronix terminal or a Calcomp file. If 
it is writing on a terminal each plot is scaled to fill the screen. By 
pressing return on the terminal the plot is erased and the next one is 
drawn. If output is to a Calcomp file, plots are automatically spaced 


to use a minimum amount of plotter paper. 


Routine MPLT1D reads unformatted data from disk or tape, 
and creates the following plots at specified times; (1) laser beam 
power and axial beam intensity as a function of x; (2) axial values of 
Tes T,> and n, asa function of x; (3) values of To» T.> and ny at: a 
given x as a function of r; and (4) the axial values of v, are plotted 
as a function of x. In addition, the axial values of Ty: T,5 and n, 
at a specified x are plotted as a function of simulation time. In the 
same manner as MPLT3D, the routine determines if the output is to a 


Tektronix terminal or a Calcomp file and adjusts its format appropriately. 
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A.4.8 Listing of Input File 


NTINE 


NTOTAL 


TMAX 


NPRT 


NTAPE 


PWRi 


VLAS 


BP 


AVR 


Initial timestep. If NTiME=0 program starts at t=0. 
If NTIME=n program starts from n'th timestep. Initial conditions 
ace read off Fortran Unit #2. 


Maximum numbec of timesteps to take. Program will take 
(NTOTAL-NTIME) timesteps unless t=TMAX first. 


Maximum time (in seconds) for calculation to run. 


Print output frequency; - on Fortran Unit #6. 
No output if NPRT=999. 


Unformatted output frequency on Fortran Unit #3. Used for 
plotting, energy ccnservation check and restarting proyraa. No 
Output if NTAPE=999. 

Laser powers in Watts at times Ti. Values are calculated by 
linear interpolation between values of Ti. Laser power is 0.0 at. 
time=0, PWR1 at T1, PWR2 at T2, PWR3I at T3, and 0.9 at time=T4, 
See PWRi.. 

Bleaching velocity of laser in ca/sec. Value is artificially 
limited to account for energy used in plasma formation. J£ no ligit 
is desired set VLAS=3.0D+10. i 

Pacameter for averaging on half timesteps. Quantity Q given by 
Q(S,X) =PP*(Q2 (S,XM) +Q2(S,XP) ) +QQ*Q2 (5,X) +DT1*QDOT 

where QQ=1.0-2.0*PP. 


Dimensionless constant multiple for artificial viscosity 
in the radial direction. (Good value between 1.5 and 2.0). 


Dimensionless constant multiple for artificial viscosity 
in the axial direction. (Good value between 1.5 and 2.0). 


Fraction of stability condition that first timestep must satisfy. 
Fraction of stability condition that other timesteps must satisfy. 


Max. fraction electron tempecature in central shells can 
increase by in a single timestep. 


Max. fraction timestep can increase by ina single timestep. 
Distance from input end of solenoid (in cm) that laser is focussed. 
Min. beam radius. (at position L3). 

Beam slope. i.e. rate of convergence or divergence of bean. 

Max. timestep size that is allowed. (in seconds) 


Number of x points in front of beam front that calculations 
are to be made. 


Maximum number of timesteps to be taken in LHEAT per main 
tinestep. Small values save CPU time but can lead to numerical 
error including loss of energy conservation. Sagall values are 
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good if the laser beam profile does not change much in a single 
timestep. There is only need for this to be greater than NX in 
extreeme cases such as a pulse travelling through a plasma that 
is optically thin before laser heating. 

If TRBC=.TRUE., Temperature on Radial Boundary is Constaat. 

If TRBC=. FALSE., Temperature eyn. assumes thermal insulation on 
Cadial boundary. 

Ratio of (ion mass)/(proton mass). (ise. RM=2 foc deuteriua) 


Pressure at x-point 0 is assumed to be (1.0-TDP1) times 
pressure at x-point 2. 


Pressure at x-point (NX+1) is assumed to be (1.0-TDP2) 
times pressure at x-point (NX-1). 


Initial x-point at which data should be printed. 
Initial output for X=XMIN if NX I=999. 


Pinal x-point at which data should be printed. 
Pinal output for X=NX if NXF=999. ' 


Initial shell for which output is printed. 


Pinal shell for which output is printed. 
Final shell for S=M if MF=999. 


Every M4S'th shell is output on printec. 


Type of boundary condition applied to L.H.S. 
Independent if NBOUND=1, Symetric if NBOUND=2. 


Numbec of x - points. 
Nuaber of shells. 

Length of solenoid inca. 
Radius of solenoid inca. 


Initial plasma density and value used in nocmalization; ina 
pacticles/cm**3, 


Value used in normalization of plasm#a temperature in eV. 

RO1 is the radius of the first shell. Wis the width of 

the second shell incm. Width of other shélls increase linearly 
in such a way as to make radius of last shell R&0. 

Initial value of B - field in Gauss. 


Initial values for electron and ion temperatures in eY¥. 


Radius at which temperature decreases to 1/2 of its value in the 
initial conditions. 


Scale length over which temperature decreases. 


Radius at which density decreases to 1/2 of its value in the 
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initial conditions. 


R2N Scale length over which density decreases. 

L1 Distance from laser input end of solenoid that initial density 
increases to 1/2 of its full value. 

L2 Scale length over which density increases. 

L4 Distance from other end of solenoid that initial density 


increases to 1/2 of its full value. 
15 Scale length over which density increases. 


NXMIN1 {nitial value for the number of x-points NOT to calculate.. 
If this value i3 less than or equal to NBOUND this featuce 
is dissabled. 


RDN Radial DyNamics. If RDN=.TRUE. full radial dynamics are calculated. 
If RDN=.FALSE. Radial Pressure Balance is assumed. This 
can save CPU time since the stability condition 1S much 
less severe so larger timesteps can be taken. If something 
othec than cadial hydrodynamic stability is the limiting 
factor on the timestep size this will NOT lead to significant 
Savings. 


SINPUT NTIME=0 SEND 

GINPUT NTOTAL=1000, TMAX=1.5D-06, NPRT=20, NTAPE=10, 
PWR1=1.0D+09, PWR2=1.0Dt09, PWR3I=1.00409, TI1=10.0D-9, T2=40.0D-09, T3=2.0D-6, 
T4=2,20-6, VLAS=3.0D+10, PP=0.0, AVR=0.0, AVX=0.0, 

A11=0.01, A1=0.4, A2=0.5, A3=1.2, L3=25.0, RLO=0.15, BS=0.0 
DTMAX=1.0D-08, NXMIN=6, MRMAX=40, TRBC=.FALSE., RBM=1.0, 

TDP 1=0.25, TDP2=0.25, NXI=999, NXF=999, M1=1, MF=999, MS=2 

GE END 

GINPUT NBOUND=1, NX=30, M=15, LO=100.0, R0=1.5, NO=3.617, 
TO=1.0D02, R01=0.045D0, W=0.045D0, BINT=1.0D+*05, TINT=1.0, 
R1T=10.0, R2T=0.1, RIN=10.0, R2N=0.15, 

L1=-100.0, L2=10.0, L4=-100.0, L5=10.0, N&MIN1=25, RDN=. FALSE. 
& END 
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y Nabs) Conservation of Energy and Mass 


The routine ENERGY reads unformatted data from disk or tape, 
and calculates the total energy and mass of the plasma. After every 
I'th input record (where I is an input parameter) the following data 
is printed; (1) total plasma energy; (2) total plasma mass; (3) the 
amount the plasma energy has changed from previous timestep; (4) the 
amount of energy that has escaped through solenoid ends; (5) the amount 
the plasma mass has changed from previous timestep; (6) the amount of 
mass that has escaped through solenoid ends; (7) the difference between 
(3) and (4) divided by total plasma energy; and (8) the difference 


between (5) and (6) divided by total plasma mass. 


Energy and mass are calculated and printed out in dimensionless 
units. A unit of energy is given by Ey = NK toh and a unit of mass 
is M, = ALM NG: Two parameters, Nl and N4, specify the axial region 
in which mass and energy conservation is checked. The rate at which 
energy and mass is flowing out of the left end of the solenoid is 
calculated at the x-point Nl while the rate at which energy and mass are 
flowing out of the right end of the solenoid is calculated at the x-point 
N4. The total energy and mass is the sum of that calculated at each 
x-point in the region specified by (NI +1) < x < (N4 - 1) plus half of the 
energy at x-points Nl and N4. If NBOUND = 2 an axis of symmetry exists 
around the point x = 2 and there is no energy flow past this point. For 
this case the routine automatically sets Nl = 2 and calculates energy and 


mass flow past the point x = N4 only. 


The total energy (or mass) is found by summing the energy (or mass) 
calculated in each of the computational cells in the region of interest. 


In dimensionless units the mass in a cell specified by M, b is: 
> 
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M = (NA) Ax 
S,X S,x 


In dimensionless units the energy in a cell is the sum of the following 


components: 


=] 
= -_ : + 
Thermal Energy (y-1) Ne (T. ih tal Syst Ax 
Magnetic Energy = (B e > A Ax 
s,x Sx 
af Ws 2 z 
° 2 As tex + A 
Kinetic Energy 5 Rene ee oe Ax 
quay % 
Cross-Sectional Laser Energy = c P_ Ax si (c= c/v,) 
The total energy U is: 
vV=1 -1 Z 
Ue rae NP iE SHOE Nh. Cea eas Bae 
x Ss 
2 2 
=} + 
Mi Net eee a a }3 


The mass flow out of a solenoid end in a time At is (mass 
density) - (AV) where AVis the volume of plasma in a shell that has 


flowed past the solenoid end. AV for a computational cell is given by: 


= e A 
Ny x (AV) ox t 
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In dimensionless units the mass flow past a x-point in a time At is given 


by (AM) where: 


COOL ) (NAV). 
s > 


The energy flow past an x-point can be found by summing the 


following terms: 


-1 
Thermal Energy l (y-1) [N(T, + T,) are At 


i 2 Vad, 72 
Kinetic Energy = ) =~ [IN(Wv + €. v_) Av] At 
Z 2 oa her S,x 


(Pressure) AV term = work done in pushing gas out the end of the solenoid: 


= l reat) AY ee At 


aye. 5/2 At 
Thermal Conduction = - 6 L (AT. YI I cata yatta 
3 -5/2 
where 6 = (ky T, ee 
Laser Ener Flow = ele + Pp ] 
BY 2~ nxtl-x nx+2-x 
if NBOUND = 1, and 
rate + P =P - P ] 
2 nx+1-x nx+2-x nx-2+x nx-3+x 


if NBOUND = 2. 
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these terms yields the energy flow past an x-point 
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Figure A.1 Spatial positions at which variables are 
calculated. N, Te, Ty, Vy, and B are 
calculated at shell centers denoted by o. 
R, W, and u are calculated on shell 
boundaries denoted by x. The indexing 
of variables is indicated on the bottom 
and right hand side of the figure. 
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Figure A.2 Flow chart illustrating two-step scheme. 
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Figure A.3 Position and indexing of numerical grid for 
calculation of laser power P, and absorbed 
energy E, relative to positioning and indexing 
of MHD variables. 
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Appendix B_ Linear Susceptabilities 


In the following analysis, F (x,t) is the total force 


Te 


acting species « (€ = e or i) and Ene (x,t) is the component of the 
Coulomb field resulting from density fluctuations of species e€. The 
distribution function f(x, v,.t) canbe split) into two parts: the 


equilibrium distribution function ey and the perturbation fl (x, Uriel s 
f _(x,v,t) = ee (v) + fi. (x,v,t) 


The linearized Vlasov equation can be written as: 


Taking a double Fourier transform in x and t yields: 
% av) 
=Hotie i kev f= = == oe 
€ € voe 


a) 


% 
where f and Pre are the double Fourier transforms of f) and Fie 
e 


respectively. Thus: 


% 
f = — ——— 3 f* CB) 
From Gauss' Law: 


a. E. (xt) = At ne qd. 
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where qe is the species charge and ne is the density perturbation 


defined by: 


n. (x,t) aa f fi (x,v,t) dv 


wv -i4dnn q © 7, 
One 
ve - k j f dv (B. 2 


where Ee (kK) is the double Fourier transform of Ee (ht). Substitution 


ers.) into (8.2) yields: 


vu ~ 


ub 
Ee Wek) = - q, x, (,k) Fp. (wk) (B.3) 
where 
we o ok a. fe 
k : 
a Lye 
and er (40 ny q_/m_) : 
Assuming fv) is Maxwellian: 
£°(v) = —+—__exp[- v /ve ] 
€ Vs € 
Vv 
Be 
ty A ; ; 
where Pa (2k,T ™) is the thermal velocity of species e¢. With 


this value of fr X, can be expressed as: 
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Using techniques discussed in Stix, Xx. can be re-written as: 


1 


2 
WwW 
a {Tp ean 
x (wk) 2 5 


k ee 


erage Et 
0€ Oo 


where elas w/ (kv, _) and 


yar es 
© exp[-v If gest 


i 
af y te ee (w - kv) ae 


Techniques for evaluating Ee are discussed in Stix 31 (Chapter 8). 
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Appendix C Ponderomotive Force Due to Antiparallel Beams 


In this Appendix the ponderomotive force resulting from the 
mixing of two antiparallel electromagnetic beams is found. Only terms 


at the beat frequency of the beams are retained. 


The force on a particle (electron or ion) is given by 
be. > 
v7 x18) —€=eori (COL) 
where q. is the species charge, E and B are the total electric and 
> 
magnetic fields due to the interacting beams and v is the particle 


velocity. The total vector potential due to the interacting beams can 


be written as 


where bs ss (kx ~ wt), sepa ey 4 


Then to first order the particle velocity is given by 


or 


apey ec (C.2) 


The ponderomotive force now comes from the second term in (C.1) where v 
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is approximated as in (C.2). This force is given by 


ae ea > qe = -» > 
Bars) =—v xB er ye eV xt) 
€ Cc Cc 
or 
an 
ie E 1] 159 ‘ 11 
se = - a4 (Aje + Aye + c.c.) (ik, Ale 
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‘ Leo 
+ ik,A,e Pic ves) a 


Retaining only terms at the beat frequency in this expression leads to 
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Appendix D Listing of Computer Routines 


CESSES SKE EESEEKES EEKE SHEET AEE SEKEER ELSE KEE TERA ERESRREREREEEEAREKEE KEK ER 


c & A TWO DIMENSIONAL MAGNETORYDRODYNAMIC SIMULATION OF A + 

Cc * PLASMA IN A SOLENOIDAL MAGNETIC FIELD. & 

Cc & RICHARD D. MILROY & J. Ne MCMULLIN 1977. * 

CFFFEEEESE EE SEES HE CEES TREE EKES EK SEEE EEK EKRERE EES SEEKER EKREEEEESEREREKEEE RE 
IMPLICIT REAL (A-H,O-2Z) : 


REAL NS,NBND,NT32,NDOT,SQRT,LO,NO 
REAL N (30,60) ,A(30,60) ,V (30,60) , TE (30,60) ,TI (30,60), 
¥2(30,60) ,A2(30,60) ,V2(30,60) ,TE2(30, 60) ,TI2 (30,60), 
AA(30,60) ,BB(30,60) ,CC(30,60) ,DD(30,60), 
PHI (31), PF (31) ,G (31) ,IZ(31) ,II (31) ,C (31) ,¥DOT(31), 
HI (31) , HE (31) ,GM(31),GP (31) ,HSTAR(31) ,0(31), 
ATEM(31) ,NTEM (31) , VTEM(31) ,TITEM(31) , EP (30,60) ,KE,KI,y 
P(120),P2 (120), TE15 (30, 60) 
o TE3 (31) , TI 3(31), DDE (31) , DDI (31), AE (31) ,AL(31) ,BE(31) ,BI(31) 
eCE (31) ,CI(31) ,DE (31) ,DI (31) , EE (31) ,E1(31) , FE(31),#1(31) 
7PR(30,60),U(30,60) ,02(30,60) ,@ (30,60), %2 (30,60) , UDOT (31) 
, OTEM (31) ,R(30,60) ,ATEM1(31) , EPS2(31) ,£M(31) ,FM (31) ,NSO,NSM 
INTEGER S,SP,SM,X,XM,XP,STEP,XMIN, XMP1,XMM1 
LOGICAL TRBC,RDN,RPB 
DATA P/120*0.0D0/,P2/120*0.0D0/,STEP/1/, PR/1800*0.0D0/ 
1, EP/1800*0.0D0/, RPB/. TRUE. / 
COMSON LO,RO,NO,TO,PWR1,P¥R2,PWR3,T1,T2,T3,T4,TMAX,VLAS,TDP1, TDP2 
*, RA 
1,T5,AV,AVX,PP1,NX,M,NTOTAL, NBOUND, NTIME, NPRT, NTAPE, NXMIN, RDN, TRBC 
CESESEETEKEHKE EET EE KEKE SEEK EERE KEK EK ES EKAEEEKE EKEKEKERERES EEKKE KE EKE EE 


eee ene een @ # 


Cc NTISE = NUMBER OF TIMESTEPS TAKEN SO PAR. * 
Cc NPRT = PRINT OUTPUT PREQUENCY. NO OUTPUT IF NPRT=999. * 
Cc NTAPE = TAPE OUTPUT FREQUENCY. NO OUTPUT IF NTAPE=999. < 
Cc NTOTAL = TOTAL TIMESTEPS TO TAKE. % 


CHESSSELEKKE SE KE SEKK EE EK KER EKE EERE EK KE KK EK EKREKEKRE SEES EE KEKKEKREREKEEEREXKERE 

CALL INIT(DT,DX, DEL, PCOLL,EPS20,PHI,V,N, A, TE, TI 

1, DELE1,DELE2,DELI1,DELI2,AB0,CS,TIME,TMO,XLAS,B,U,W,XMIN) 

IF (NTIME.NE.O) 
*CALL REST (DT,DX,DEL, PCOLL,EPS20,PHI,V,N,A,TE,TI 

1, DELE1, DELE2,DELI1,DELI2,AB0,CS, P, P2,TIME, THO, XLAS,R, U, W, XMIN) 
IF(RDN) RPB=.FALSE. 

GAM=5. 0D0/3.0D0 

EPS1 = (RO/LO) 

EPS12=(RO/LO) #*2 

AVE2 = (AV*EPS1) **2 

MM1=H-1 

WXMI=NX-1 

NXPI=NX+1 

WXP2=HX+2 

HDT=0.5*DT 

TDX=2. 0*DX 

NX2=2eNX 
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NX2M1=NX2-1 
NX2M2=NX2M1-1 
NXM1=NX-1 
GM1=GAMN-1 
PPP=1.0 
0QQQ=2.0-PPP 

P (1) =0.0 

F (M+1) =0.0 

G (1) =0.0 

G (Mt 1) =0.0 
IE(1)=0.0 

IE (M+#1) =0.0 
II (1) =0.0 

II (M+1) =0.0 
UDOT (M) = 0.0 


C---------- INITIALIZE TEMPORARY ARRAYS 
DO 50 S=1,M 
ATEM(S) = 0. : 
NTEM(S) = 0. 
VTEN(S) l= 0. 
50 TITEM(S) = 0. 
GOTO425 
C---#45-—-= RETURN POINT OF TIME LOOP 


75 CONTINUE 

TIME = TIME+DT 

NTIME = NTIME+1 

HDT = 0.5*DT 

DT3=1. ODO0/ {3.0D0*DT) 
(SI CALCULATE XMIN. 

IF (XNIN.LT.NBOUND) STOP 

IF (XMIN.GT.NBOUND) 


1 CALL NDPTS(XMIN,P,NX,NBOUND,KXMIN) 
XMP1 = XMIN¢1 

XMM1 = XMIN-1 

NPMX = NX+1-XMIN 


_85 CONTINUE 
DT 1=HDT*STEP 
GDT1=GM1*DT1 
PP=(2-STEP) *PP1 
QQ=1.0D0-2.0D0*PP 
C------- DEFINE TE**1.5 AS TE15. 
DO 14 XRT, Wx 
DO 14 S=1,M 
14 TE15(S,X) = TE(S,X)*SQRT(TE(S,X)) 
IF (TIME.LE.T5) 
ICALL LHEAT(M,NX, STEP ,TIME,T1,T2,T3 -T4, NBOUND,TE15,XMIN 
2, PURI, PRR2, PWR3, XLAS, VLAS, RO, ABC ,P,P2, PR, R, Ne A, TE, EP, DX, NXP1,TO) 
C-1-------- AXIAL LOOP 
DO 300 X=XMIN,NX 
IBR = 1 
IF(X.EQ.1) IBR = 2 
IF(X.EQ.NX) IBR = 3 


XM = X-1 
XP = X+1 
SUM1 = 0. 
SUM2 = 0. 
ABND = 0. 
HJ1=0.90 

HJ2=0.0 


RSP=0. 5*R (1, X) 
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VPS = U(1,X)/R (1,X) 

Q2 = 0.0 

IF(VPS.LT.0.0) Q2 = N(1,X) *AVE2*#¥PS##2 

PIL = N(1,X)*(TE(1,X)#TI(1,X)) # (PHI(1) /A(1,X)) ##2 
DWDXL = 0.0 


C-2---~-----PIRST SHELL LOOP 
“ DO 150 S=1,M 
SP = S+1 
SM = S-1 
NS = N(S,X) 
AS = A(S,X) 
VS = V(S,X) 
TES = "e713, 2) 
TISh=r Ths; k) 
TS = TES + TIS 
PS = NS¥*TS 
PHS = PHI(S) d 
BS = PHS/AS 
WS = W(S,X) 
US = 0S 7x) 
C-2-1------ CALCULATION OF FLUXES THRU UPPER BOUNDARY 


IP(S.EQ.M) GO TO 101 


BSP = PHI(SP)/A(SP,X) 
PH2 = PHI(SP) 

PH12 = PHS#PH2 

ABND = ABND + AS 
RS=RSP 


RSP=0.5*(R(S,X) +R (S*1,X)) 
DR1=AS/(2.0*RS) 
DR2=A(S+1,X) /(2.0*RSP) 
DR12=DR1#DR2 

R1=DR2/DR12 

R2=DR1/DR12 
BBND=R1*BS+#R2*PH2/A(SP,X) 


DBYB = 4. *ABND* (PH2/A (SP,X)-BS) /PH12 
- NBND = R1*NS + R2*N(SP,X) 
VBND = R1*VS # R2*V(SP,X) 


TIBND = R1*TIS # R2*TI (SP, X) 
TEBND = R1¥*TES + R2*TE(SP,X) 
SOTEBD = SQRT(TEBND) 
EPS2(S) = EPS20/(TEBND*SQTEBD) 
F(SP) = EPS2(S)*NBND*DBYB 
G(SP) = VBND*FP (SP) 
PBYN = F(SP) /NBND**GM1 
II(SP) = TIBND*FBYN 
IE(SP) = TEBND*PBYN 
HJ2=16.0*EPS2(S) *ABND*( ( (PH2/A(S#1,X)) - (PHS/AS) ) /(AS+#A (S#1,X) )) ##2 
GO TO 100 

101 HJ2=0.0 

100 NT32 = NS/TE15(S,X) 
HJUL=0.5* (HJ 1#HJ2) 
HJ1=HJ2 
X NU=FCOLL*NT32 
IP (XNU.GT.DT3) XNU=DT3 
TEQ=XNU* (TES-TIS) 

C-2-2------CALCULATE SPACE DERIV*S AND NET SHELL FLUXES 

DELF = F(SP) -F(S) 
DELG = G(SP)-G(S) 
PNGM1 = NS**GM1 
DELIE = PNGM1* (IE(SP)-IE(S)) 
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DELII = PNGM1# (II (SP)-II(S)) 

AN = AS*NS 

GO TO (30,40,20) , IBR 

TDN = N(S,XP)-N(S, XM) 

TDV = ¥(S,XP)-V(S, X4) 

TDTE = TE(S,XP)-TE(S,XM) 

TDOTI = TI(S, XP)-TI(S,Xm) 

TDP = N(S,XP)* (TE(S,XP) +TI (S,XP) )-N(S,XM) * (TE(S, XM) #TI (S, XM) ) 
TDNAV = #(NS*AS*(V(S,XP)-V(S,XM)) + NS*VS*(A(S,XP)-A(S,X4)) 

1 + AS*VS*(N(S,XP)-N(S,XM))) 


ATM = A(S,XM)*TE(S,XM) *TE15(S,XM) 

ATO = AS*7TES*TE15(S,X) 

ATP = A(S,XP)*TE(S,XP) *TE15(S,XP) 

TDU_= U(S,XP) - U(S, XM) 

TDW = W(S,XP) — W(S, XM) 

VXM=V(S,XM) 

VXP=V (S,XP) ‘ 
QP=0.0 

Qu=0.0 


IP(VXP.LT.VS) QP=(AVX* (VXP-VS)) ##2 * 0.5%(NS#N(S,XP)) 
IF(VS.LT.VXM) QM=(AVX*(VS-VXM)) *#2 ® 0.5*(N(S, XM) #NS) 
GO TO 21 

TDN = 2.0*(N(S,X)-N(S,XM)) 

TDV = 2.0*(V(S,X)-V(S, XM)) 

TDTE = 2.0*(TE(S,X)-TE(S,XM) ) 

TDTI = 2.0* (TI (S,X)-TI (S,XM) ) 

TDP = -N(S,XM)*(TE(S,XM) #71 (S,XM)) *TDP2 

TDNAV=2. 0D0* (NS#AS*(VS-V(S,XM) ) #NS*VS* (AS-A(S, XM) ) 
1+AS*VS* (NS-N (S,XH) )) 


ATM = A(S,XM)*TE(S,XM) *TE15(S,XM) 
ATO = AS*TES*TE15(S,X) 

ATP = ATO 

TDU = 2.0*(U(S,X)-U(S,XM)) 

TDW = 2.0*(W(S,X)-W(S,XM)) 

QP = 0.0 

QM = 0.0 

GO TO 21 

TDN = 2.0*(N(S,XP) -N (S,X)) 


TDV = 2.0*(V(S,XP)-V(S,X)) 
TOTE = 2.0*(TE(S,XP)-TE(S,X) ) 
= 2.0*(TI(S,XP) -TI(S,X)) 
TDP = N(S,XP)* (TE(S,XP) #T1(S,XP))*TDP1 
TDNAV=2. ODO* (NS*AS*(V(S,XP)-VS) + NS *VS* (A (S, XP) -AS) 
1+AS*VS* (N(S,XP)-NS)) 


ATM = AS*TES*TE15(S,X) 
ATO = ATM 

ATP = A(S,XP)*TE(S,XP) *TE15 (S,XP) 
TDU = 2.0*(U(S,XP) -U(S,X)) 

TOW = 2.0*(W(S,XP)-W(S,X)) 

QP = 0.0 

QM = 0.0 

CONTINUE 

PTU = NBND*(TEBND+TIBND) # BBND**2 


DEDe— BUR = SPT 

DWDXM = 0.5* (DWDXL*DWDXU) 
PTL = PTU 

DWDXL = DWDXU 

ET = DWDXM*DPT/AN 

DQDX = (QP-QM) /DX 
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C(S) = -{ TDNAV/TDX + DELP ) 

ieee! = —( VS*IDV+TDP/NS )/TDX - (DELG-VS*DELF) /AN - DQDX/NS 
+ ET : 

HE(S) = -VS* (TDTE-GS1*TES*TDN/NS)/TDX - (DELIZ-TES*DELP) /AN 

1 -TEQ + GM1*EP(S,X) + GMI*HJUL/NS 

HI(S) = -VS* (TDTI-GM1*TIS*TDN/NS)/TDX - (DELII-TIS*DELF) /AN 

1 +#TEQ 


GP = 0.5*GM1*DEL*DT/ (NS*AS*DX**2) 
GM(S) = GF*(ATM+#ATO) 
GP(S) = GF*(ATP+ATO) 
manne CALCULATE COEFICIENTS FOR QUASI-IMPLICIT PERP. HEAT FLOW. 
IP(S.EQ.M) GO TO 5 
KE = DELE1*TEBND*TEBND*SOTEBD 


1 7 (1.0 + DELE2*TEBND** 3*3BBND**2/(NBND**2) ) 

KI = DELI1*TIBND*TIBND*SQRT (TIBND) 

1 7 (1.0 + DELI2*TI BND**3 *BBND**2/(NBND*#*2) ) 

Z=4. ODO*ABND/ (AS#A (SP,X) ) : 


DDE(S) =Z*KE 
DD1(S) =Z*KI 

IF(S.EQ. 1) GO To 5 

Z=GDT1/(NS*AS) 

AE (S)=Z*DDE(S) *PPP 

A1(S)=Z*DDI(S) *PPP 

BE(S)=1.0+Z* (DDE {S) #DDE(S-1) ) *PPP 
BI(S)=1.0+2* (DDI (S)+DDI (S-1) ) *PPP 

CE(S)=Z*DDE(S-1) *PPP 

CI(S)=Z*DDI(S-1) *PPP 

DE (S)=TE2(S,X) +Z* (DDE (S) *TE2(S+1,X)~- (DDE (S) #DDE (S-1) ) *TE2(S,X) 
1 #DDE (S-1) *TE2(S-1,X)) #000 

DI{S)=T1I2(S,X) +Z* (DDI (S) *I12(S+1,X)- (DDI (S) #DDI (S-1)) *TI2(S,X) 
1 #DDI (S-1) *TI2 (S-1,X))*Q0Q # HI(S) *DT1 


5 CONTINUE 
IF(RPB) GO TO 150 
CS ae SOLVE EQNS. ASSOCIATED WITH RADIAL DYNAMICS. 
SS ge ae FIRST FIND ARTIFICIAL VISCOSITY. 


IF(S.EQ.M) GO TO 150 
VPSP = U(SP, X)/R(SP, X) 
Q1 = 0.0 
IF(VPSP.LT.VPS) Q1 = NS*AVE2*(V¥PSP-VPS) #*2 
DODS = 2.0*(Q1-Q2) /PH12 
Q2 = Qi 
VPS = VPSP 
IP(S.NE.1) GO TO 161 
DUDS = U(2,X)/PH12 
GO TO 162 
161 DUDS = (U(SP,X)-U(SM,X))/PH12 
162 DUDX = TDU/TDX 
D = 4.0*W¥S*BBND* (BSP-BS) /PH12 
Z = 2.0*BBND*WS/(EPS12*NBND) 
DPDS = ((N(SP,X)*(TE(SP,X)+TI(SP,X))) - (NS*TS)) *2.0/PH12 
DB2DS = ((BSP**2) - (BS**2)) *2.0/PR12 
UDOT(S) = -VBND*DUDX - EPS2(S)*D*DUDS + (US*#*2) /wS 
1 -Z*(DPDS + DB2DS + DQDS) 
C------- SOLVE FOR W SEMI-IMPLICITLY. 
DWDX = TDK/TDX 
Z = 2.0#FPS2 (S) * (BBND**2) *¥S 
IF(S.NE.1) GO TO 163 


AM = DT1*Z/(PH2*PH 12) 
BM = 1.0 + DT1*Z*(1.0/(PH2*PH12) + 1.0/(PHS*PH12)) 
DM = W2(S,X) + DT1*(2.0*US - VBND* DWDX) 
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1 + AM*W2(SP,X) - (BM-1) *W2(S,X) 
AM/BM 


my 
fe 3 
o-~ 
iz) 
"ou 
0 
s 
“ 
wo 
= 


163 AM DT1*Z/(PH2*PH 12) 


CS = DT1*Z/( FHS*PH12) 
BM = 1.0 + AM + CM 
DM = W2(S,X) + DT1*(2.0*uUS - VBND* DW DX) 


1 * AM*W2(SP,X) - (BM-1)*W2(S,X) + CMW 2 (SM, X) 
EN(S) = AM/(8M - CM*EN (SH) ) 
FU(S) = (DS + CM*FM(SM))/(BM -CM*EM(SM)) 
150 CONTINUE 
IF(RPB) GO TO 102 
C------- SOLVE FOR W(S,X). 
W(M,X) = W2(M,X) 
DO 164 J=1,4M1 
S = M-J ‘ 
SP = S+1 
W(S,X) = EM(S)*W(SP,X)+FM(S) 
164 CONTINUE 
C--~---- USE NEW VALUE OF WTO PIND ATEM1(S). 
ATEM1(1) = W(1,X) 
DO 165 S=2,mM 
165 ATEM1(S) = (W(S,X) - W(S-1,X)) 
C-------- FIND MORE COEFICIENTS FOR IMPLICIT EQUATIONS. 
102 2=GDT1/(N(1,X) *A(1,X)) 
- EEE=Z*DDE (1) *PPP 
PFF=1.0+EEE 
GGG=TE2 (1,X) +EEE* (TE2(2,X)-TE2(1,X)) *QQ0Q0/PPP 
EE(1)=EEE/FFF 
PE({1)=GGG/FFF 
EEE=Z*DDI (1) *PPP 
FPPF=1.0+EEE 
GGG=TI2(1,X) tEEE*(TI2(2,X)-T12(1,X)) *QQU/PPP + HI (1) *DT1 
EI(1)=EEE/FFF 
FI (1) =GGG/FFF 
DO 6 S=2,MM1 
EE(S)=AE(S)/ (BE(S) -CE(S) *EE(S-1) ) 
EI(S)=A1(S) / (BI (S) -CI (S) *EI (S-1) ) 
PE(S)=(DE(S) +CE(S) *FE(S-1))/(BE(S) -CE(S) *EE(S-1)) 
FI (S) =(DI(S) +CI (S) *FI(S-1) ) / (BI (S) -C1(S) *Z1(S-1)) 
6 CONTINUE 
Ce --—— ELNDY Toa (npr AND 11 3.(M)ie 
IP (TRBC)" GO To 15 
Z=GDT1/(N(M,X) *A (M,X) ) 
FFP=Z*DDE (M-1) *PPP 
-EEE=1.0+FF? 
GGG=TE2 (M,X) -FFF*(TE2(M,X)-TE2(M-1,X)) *QQ0/PPP 
TE3 (M) =(GGG+FFF*PE (MM1)) /(EEE-FFF*EE(NM1)) 
FPPP=Z2*DDI (MM1) *PPP 
EEE=1.0+FFF 
GGG=TI2(M,X)-FFF*(TI2(M,X)-TI2(MM1,X)) *QQQ/PPP + HI(M) *DT1 
T1I3(M) =(GGG+FFF*FI (MM1)) /( EEE-FFF*EI (4M1)) 
GO TO 16 
15 TE3(M) = TE2 (M,X) 
TI3(M) = TI2(M,X) 
16 CONTINUE 
C------- FIND TE3(S) AND TI3(S) = S=MN1 TO 1. 
DO 7 J=1,MM1 
S=H-J 
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TE3(S) =EE (S) *TE3 (S#1) +FE(S) 
T1I3(S)=EI(S) *T13 (S+1) FI (S) 
7 CONTINUE 
C------- ADD RATE OF CHANGE OF TE AND TI TO HE(S) AND HI(S). 

DO 8 S=1,M 

TEDT= (TE3(S)-TE2 (S,X)) /DT1 

TIDT= (TI3(S)-T12(S,X)) /DT1 

HE(S) =HE(S) #TEDT 


H1(S)=TIDT 
8 CONTINUE 
IF(RDN) GO TO 103 
C-2-4------CALCULATE TERMS FOR ADOT SUMS 
DO 9 S=1,M 


GO-TO (34,44,24) , IBR 


34 THETA pot) MPUSTE IS, XB) GAGES) +P (S)) *TE(S,X) ¢Gh (5) *TE(S, XM) ) /DT 
GO TO 2 

24 THETA = (GP (S) *TE(S,X)— (GM (S) +GP (S)) *TE(S,X)+GM {S) *TEB(S,XM)) /DT 
GO TO 25 

44 THETA = (GP (S) *TE(S,XP)~ (GM(S) #+GP(S)) *TE(S,X) ¢GM(S) *TE(S,X)) /DT 


25 CONTINUE 
HSTAR(S) = N(S,X)*A(S,X) *(HE(S) ¢HI (S} #*THETA) 
PISTAR = 2.* (PHI (S)/A(S,X))**2 # GAN*N(S,X)*(TE(S,X) #TI (S,X)) 
SUM1 = SUM1 + (HSTAR(S) #+GAM* (TE(S,X) +TI(S,xX)) *C(S)) /PISTAR 
SUM2 = SUM2 # A(S,X) /PISTAR 

9 CONTINUE 
PIDOT = SUM1/SUM2 
C-3-------- SECOND SHELL LOOP 

103 CONTINUE 
ATOT=0.0 
DO 275 S=1,M 
NS 


-~ 
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PHS = PHI(S) 
BS = PHS/AS 
C-3-1------CALCULATE TIME DERIVATIVES 
IF (RPB) 
VADOT = (HSTAR(S) #GAM*TS*C(S) -AS*PI DOT) /(2.*BS*BS+GAM*PS) 
IF(RDN) ADOT = (ATEM1(S)-A2(S,X))/DT1 
NDOT = (C(S) -NS*ADOT) /AS 
DLNDOT = GM1*NDOT/NS 
TIDCT = HI(S) + TIS*DLNDOT 


C-3-2------Q IS NON-CONDUCTIVE PART OF TEDOT 
Q(S) = HE(S) + TES*DLNDOT 
C------- TRANSFER TEMP. TO PERM. 


IF(X-EQ.XMIN) GO TO 60 

A(S,XM) = ATEM(S) 

ATOT = ATOT+A(S,XM) 

IF(BPB) W(S,XM) = ATOT 

N(S,XM) = NTEM(S) 

vV(S,XM) = VTEM(S) 

TI(S,XM) = TITEM(S) 

IF(RDN) U(S,-XM) = UTEM(S) 

R(S,XM) = SQRT(W¥(S,XM)) 
C------- ADVANCE TEMP. QUANTITIES TO T#(HDT*STEP). 

60 CONTINUE 
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GUO TO (37,47,47) ,IBR 
37 CONTINUE 
IF(RDN) ATEM(S) 
IF (RDN). UTEM(S) PP*(U2(S,XM) +U2(S,XP)) * QQ*U2(S,X) #DT1*uDOT(S) 
IP(KPB) ATEM(S) PP*(A2(S,XM) #A2(S,XP)) +00*42(S,X) + DTI*ADOT 
NTEM(S) = PP¥*(N2(S,XM)#N2(S,XP)) #QC#N2(S,X) + DTI*NDOT 
YTEM (S) PP*(V2(S,XM) +V2(S,XP)) #QQ*V2(S,X) +# DT1#VDOT(S) 
TITEM(S) = PP* (T12(S,XM) +T12(S,XP))+#QQ*TI2(S,X) + DTI*TIDOT 
GO. To) 27 
47 CONTINUE 
IF(RDN) ATEM(S) 
IP(RDN) UTEM(S) U2(S,X) + DT1*UDOT(S) 
IF(RPB) ATEM(S) A2(S,X) + DT1*ADOT 
NTEM{S) = N2(S,X) # DT1*NDOT 
VTEM(S) = V2(S,X) + DT1*VDOT(S) 
TITEM(S) = TI2(S,X) +# DT1I*TIDOT 
27 CONTINUE ‘ 
C-3-5------COEFF'S FOR IMPLICIT SCHEME 
GO TO (38,48,28) , IBR 
38 CC(S,X) =+0.25*STEP*GM(S) 
AA (S,X) =+0.25*STEP4*GP(S) 
BB(S,X) = 1. +#AA(S,X) #CC(S, X) 
DD(S,X) = 0.5*STEP*DT#Q (S) +(PP+CC(S,X)) *TE2(S,XM) + (PP+AA (S,X) ) * 
C TE2(S,XP) +(QQ-CC(S,X)-AA(S,X) ) *TE2(S, X) 
GO TO 29 
28 AA(S,X) =0.0 
BB(S,X) =1.0+0. 25 *STEP*GM (S) 
CC(S,X)=0.25*STEP*GM (S) ' 
DD(S,X) = 0.5*STEP*DT*Q(S)+#(CC(S,X)) *TE2(S,XM) + (AA(S,X)) *® 
C TE2(S,X) #(1.0-CC(S,X)-AA(S,X))*TE2(S,X) 


ATEM1(S) 


“onou 


ATEM1(S) 


GO TO 29 
48 AA(S,X) = 0. 25*STEP*GP (S) 
BB(S,X) =) 1.0+AA(S,X) 
COMSEXIP=? 0.0 
DD(S,X) = 0.5*STEP*DT*Q (S) + (CC(S,X)) *TE2 (S,X) + (AA (S,X)) * 


. C TE2(S,XP) +#(1.0-CC(S,X)-AA(S,X)) *TE2(S,X) 
29 CONTINUE 
275 CONTINUE 
300 CONTINUE 
C-3-6------TRANSFER TEMP TO PERM AT NX 
ATOT '=' 0.0 
DO 310 S=1,M 
N(S,NX) = NTEM(S) 
A(S,NX) = ATEM(S) 
ATOT = ATOT+A(S,NX) 
IF(RPB) W(S,NX) = ATOT 
V(S,NX) = VTEM(S) 
IF(RDN) U(S,NX) = UTEM(S) 
R(S,NX) = SQRT(W(S,NX)) 
310 TI(S,NX) = ITEM(S) 
CHEER E EK ERE ER EEE KEKE EE EKER EERE REE EEE EE EERE KE EK KER EK ERK RK KE ERE RE RK ERE KE 


Cc * IMPLICIT EQUATIONS * 

Cc * AS SOLVED BY RICHTMYER AND MORGAN, - PAGE 198. * 

Cc * 1T(S,X) =E(S,X) *T(S,X+1)+F(S,X) * 

Cc * SET E(S,X) TO AA(S,X) AND F(S,X) TO BB(S,X) * 

CHEEKEE EERE SKE EEE EERE EEE ERE EEE ERK EAE EE EKER EERE REE R KEE REE EERE KE EEERE EK 
M1 = M 


IF (TRBC) M1 = M-1 
GO TO (52,51) , NBOUND 
51 CONTINUE 
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C---------------- CASE WITH SYMETRIC BOUNDARY CONDITIONS. 
IF (XMIN.ZEQ.2) GO TO 2 
DO 1 S=1,M 
AA(S,XMIN) = AA(S,XMIN)/3B(S,XMIN) 
1 BB(S,XMIN) = (DD(S,XMIN) #CC(S,XMIN) *TE2(S,XMIN)) /BB(S, XMIN) 
GO TO 3 
2 DO 340 S=1,M 
AA(S,2)=(AA(S,2) #CC(S, 2) ) /BB(S, 2) 
340 BB(S,2) =DD(S,2) /BB(S,2) 
3 DO 350 X=XMP1,NXM1 
DO 350 S=1,M 
AA(S,X)=AA (S,X)/(BB(S,X)-CC (S,X) *AA(S,X-1)) 
330 BB(S,X)=(DD(S,X) #CC(S,X) *BB(S,X- 1) )/(BB(S, X) -CC{S,X) *AA(S,X-1)) 
C-2--------APPLY RIGHT B.C. 
DO 370 S=1,M1 
370 TE(S,NX) = (DD(S,NX) #CC{S, NX) *BB(S,NX-1) ) /(3B(S,NX) -CC (S, NX) 
1 * AA(S,NX-1)) 
DO 400 J=2,NPMX 
X=NX-J+1 
DO 400 S=1,M1 
400 TE(S,X) =AA(S,X) *TE (S,X+1)+BB(S,X) 
C-4y-------- APPLY LEPT B.C. 
IF(XMIN.GT.2) GO TO 65 
DO 410. S=1,M 


A(S,1) = &A(S,3) 
N(S,1) = N(S,3) 
V(S,1) = -V(S,3) ; 
U(S,1) = U(S,3) 
W(S,1) = W(S,3) 
R(S,1), = 8 (S,3) 
TES a iip es, TES 93) 
S1OCII(S Le =a TT (S.3h 
GO TO 65 
52 CONTINUE 
C-------------------- CASE WITH EACH END TREATED INDIVIDUALLY. 
C---~----------------- APPLY LEFT B.C. 


IF (XMINJEQ.1) GO TO 12 
DO 11 S=1,M 
AA(S,XMIN) = AA(S,XMIN) /BB(S,XMIN) 
11 BB(S,XMIN) = (DD(S,XMIN)-CC(S,XMIN) *TE2 (S,XMIN) ) /BB(S, XMIN) 
"GO TO 13 
12 DO 341 S=1,M 
AA(S, 1) = AA (S,1) 7BB (S21) 
341 BB(S,1) = DD(S,1)/BB(S,1) 
13 DO 351 X=XMP1,NXM1 
DO 351 S=1,M 
AA (S,X) =AA (S,X) / (BB(S, X) -CC (S,X) *AA(S, X-1)) 
351 BB(S,X)=(DD(S,X) +CC(S,X) *BB(S,X- 1) )/(BB(S,X) -CC (S,X) *AA(S,X-1)) 
C-2--------APPLY RIGHT B.C. : 
DO 371 S=1,M1 
371 TE(S,NX) = (DD(S,NX) #CC(S, NX) *BB(S ,NX-1) )/{BB(S, NX) -CC(S,NX) 
1 * AA(S,NX-1)) 
DO 401 J=2,NPMX 
X=NX-J+1 
DO 401 S=1,M1 
401 TZ{S,X) =AA(S,X) *TE (S,X+1)+BB(S,X) 
C----------CHANGE STEP 
65 STEP = 3-STzP 
IP(STEP.EQ.2) GOTO 85 
C-------- ADJUST TIMESTEP SIZE IF NECESSARY. 
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CALL DTIME(DT,NX,M,TE,TI,TE2,N,PHI ,A,R, EPS1, XMIN, RDN, DX) 
Ce ~~ COPY NEW SOLOTION 
425 CONTINUE 
DO 450 X=1,NX 
DO 450 S=1,M 


A2(S,X) = A(S,X) 
N2(S,X) = (5S, xX) 
V2(S;x) 20 (S, x) 
U2(S,X) =. U(S,X) 
B2(S,X) = w(s,X) 
TE2 (Sex) Ce LTE(S, x) 
450 TI2(S,X) = TI(S,X) 
C-—--------+ OUTPUT ROUTINE 


IT? (((NPRT* (NTIME/NPRT) ).EQ.NTIME) «AND. (NPRT. NE. 999) ) 

\CALL RITE(NTIME,TIME,M,NX,A,TE,TI,N, PHL,V,P,THO0,DT,U,R,EP ,XMIN 
2,RBB) 

IF (( (NTAPE* (NTIME/NTAPE) ). EQ.NTIME) AND. (WTAPE.NE.999) ) 

\CALL TPOUT(NTAPE,NTIME,TINE,M,NX,LO,RO,NO,1T0,DT,A 
2,TE,TI,N,PHI,V,P,NBOUND, XLAS ,U,,XMIN, RDN, BM) 

IPF ((NTIME.GE.NTOTAL) .OR, (TIME.GE.TMAX)) STOP 

C---------- END OF OUTPUT 

GO TO 75 

END 

SUBROUTINE INIT(DT,DX,DEL, FCOLL, EPS20, Pil, V,N,A,TE, TI 
1, DELE1, DELE2,DELI1,DELI2,AB0,CS,TIME,THO,XLAS,RD,U,WO,XM1N) 

CHEEK EKREKKK KEKE KKK KEKE KEE EK KEKE KH KK EEE EERE KEKE KEKE EE EEE EE 
Cc SUBROUTINE INPUTS INITIAL CONDITIONS. . * 
Cc RICHARD D. MILROY 77-04-23 * 
C¥EEEKEKEKKKEKKEKEKKEKEKEKEKE RREKRKKKEKEKKEK ER FR ERE EKER EEE KEE E KEKE RE EKKEK 

IMPLICIT RZAL(A-H,0-2Z) 

REAL PHI (31) ,¥ (30,60) ,N (30,60) ,A{30,60) ,TE(30,60) ,TI (30,60) 
1,NO,LO,KB,MI,LMDA,LLMDA, R(31) ,PR (30,60) , NINT(31) ,RD (30,60) 
2,U(30,60) ,WO (30,60),L1,L2,L3,L4,1L5,NCRIT 

INTEGER S,X, XMIN 
LOGICAL TRBC,RDN 
COMMON LO,RO,NO,TO,PWR1,PWR2,PWR3,T1,T2,T3,T4, THAX,VLAS,TDP1, TDP2 
*,RM 
1,T5,AVR,AVX,PP,NX,M, NTOTAL, NBOUND, NTIME, NPRT, NTAPE, NXMIN, RDN, TRBC 
2/TSS/A11 ,A1,A2,A3, DTMAX/LASP/L3, RLO, BS, NCRIT, TL, DTL,MRMAX 
3/PRT/NXI,NXF,M1,MP,MS 

NANELIST /INPUT/ NTLME,NTOTAL, NPRT ,NTAPE,PR, PUR1,PKR2,PWR3 
1,T1,T72,73,T4,TMAX, NBOUND,NX,M,LO,RO,NO,TO, RU1, ¥, VLAS 
2,3INT, TINT, NINT,PP,AVR,A11,A1,A2,A3,L1,L2,L3,L4,L5, RLO, BS, DIMAX 
3, NXMIN,NXMIN1,RON, TDP1,TDP2, NXI,NXF,M1, UF, MS,AVX,MRMAX 
4,TRBC,R1IT,R2T,RIN,R2N,RM 

TIME=0.0D0 

XLAS=0.0 

READ (5, INPOT) 

IF(NTIME.NE.0) GO TO 2 

READ (5, INPUT) 

RM1 = RM 

READ (5, INPUT) 

DO 6 I=1,48 

6 NINT(I) = 1.0 

L1=L1/L0 

L2=L2/L0 

L3=L3/L0 

L4=L4/LO 

L5=L5/L0 

RIT = R1T/R0 
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R2T = R2T/RO 
RIN = R1IN/RO 
R2N = R2N/R0O 


NCRIT = 9.96D+18/NO 
XMIN = NXMIN1 

I? (XMINSLT.NBOUND) XMIN=NBOUND 

RLO=RLO/RO 

BS=BS*L0/R0 

KB=1.6D-12 

C=3.0D+10 

MI=1.67D-24*RN 

PO=NO*KB*TO 

BO=SQRT(8.0*3. 14 159*P0) 

VO=SQRT (KB*TO/MI) 

TMO=LO/VO 

A0=3.14159*R 0# #2 

PWO=P0*A0*V0*1.0B-07 

EPS1 = (RO/LO) 

CS=C/V0 

LMDA=1, 356E+28* ( (KB*T0) *#3/ (3. 14159*NO) ) **0,5 
LLMDA=A LOG (LMDA) 

DZL= 1. 9D21*T0**2.5/(LLMDA*NO*V0*LO) 


DELE1 = (1.9D+21/LLMDA) * (TO#*2.5*L0) /(NO*V0#RO**2) 

DELE2 = (2.45D+25/LLMDA**2) *(TO#*3*BO**2) /(NO**2) 

DELIV = (7.8D+19/LLMDA) * (TO**2, 5¥*L 0) /(NO*V0#R0**2) *SQORT (RM) 
DELI2 = (7.8D+22/LLMDA** 2) *(T0**3*BO** 2) /(NO**2) 


SIGMA=8.7D13*T0**1.5/LLMDA - 
EPS20=C**2*L0/ (6.283 19 *SIGMA *RO**2 *V0) 

FCOLL=3. 25D-09*NO*LLMDA/ (10**1.5) *L0/(V0*RM) 

ABO=9. 74E-36 *NO**2*L0/TO*#1.5 

DX=1.0/(NX-NBOUND) 


PWR1 = PWR1I/PWO 
PWR2 = PWR2/PHO 
PWR3 = PWR3/PWO 
T1 = T1/TMO 
T2 = T2/TMO 
T3 = T3/TMO 
T4 = TU/TMO 
T5 = TU + 3.0/CS 


TMAX = TMAX/TMO 
VLAS=VLAS/VO 
R01=R01/R0 
W=W/RO | 
BINT=BINT/BO 
TINT=TINT/TO 
C-------- SPECIFY SHELL RADII. 

RR=1.0-R01 
AA=(RR/W) ** (1.0/7 (M-2) ) 
DO 99 I=1,100 

99 AA=(((RR*(AA-1.0)) +H) /W) #* (120/(M- 1)) 
R (1) =0.0 
R(2)=R01 
R (3) =RO1+W 
MP1=M+1 
DO 100 I=4,MP1 

100 R(I) =R (I-1) + AA*(R (I-1)—R (I-2)) 


‘ 


Ca SET INITIAL VALUE FOR DT. 
DTMAX = DTMAX/TMO 
Crrn----- SET INITIAL VALUE OF DT AT A11 * VALUE ALLOWED BY STABILITY. 


C = (2.0*1.6667*TINT) + (2.0*BINT**#2/NINT(1) ) 
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C = SQRT(C) 
DZL=UDX 
IF(RDN) DZ=R01*EPS1 
DT = A11*(DZ/C) 
IF(DT.GT.DTMAX) DT=DTMAX 
DO 1 X=1,NX 
DO 1 S=1,M 
TE(S,X)=TINT 
TI(S,X)=TINT 
N(S,X) =NINT(S) 
A (S,X) =(R(S+1) **#2-R(S) **2) 

1° VASsx)=050 
DOU X= TINY 
DO 4 S=1,m 
RD({S,X) = R(S+1) 
U(S,X) =0.0 

4 WO(S,X)=R(St1) **2 

------- MAKE RADIAL PROFILE FOR TEMPERATURE AND DENSITY. 

DO 7 S=1,M 

7 R(S) = 0.5*(R(S) +R (S#1)) 


AT1 = 1./(TINT*TO) 

AT2 = 1.0-AT1 

ANi = 0.001 

AN2 = 1.0-AN1 

DO 8 S=1,M 

Z2T = R(S) - RIT 

ZZN = R(S) - RIN , 
XNT = AT2/(1.+EXP(2ZT/R2T)) + ATI 

XNN = AN2/(1.+EXP(ZZN/R2N)) + ANI 


DO 8 X=1,NX 
DENS RMI eKNT* TE (S,X) 
TCS, x) XNT*TI (S,X) 
8 N(S,X) = XNN*N(S,X) 
K=NX/2 
CONST=NINT (M) * (TE(M,K) #TI(M,K)) #+BINT*#2 
DO 3 S=1,4 
3 PHI(S) = SQRT(CONST-N(S,K) *(TE(S,K)¢#TI(S,K)))*A (S,K) 
------- PUT IN INITIAL DENSITY PROFILE FOR GAS TARGET. 
NXP1 = NX+1 


X = NXP1-J 
Z = DX*(X-1) 

ZZZ=L1-Z 

Y = DX*(J=1) 

YYY = (L4-Y¥) 
XN=(.999/(1.+EXP (ZZZ/L2) ) +2001) *(.999/(1.+ EXP (YYY¥/L5) ) +2001) 
DO 5 S=1,M 


5 N(S,J) = XN*N(S,J) 
------ - INITIALIZE LHEAT. 
TL=0.0 
DTL=DX/CS 
WRITE (6,601) 
601 FORMAT('1',* INITIAL CONDITIONS") 
WRITE(6,602) LO,RO,NO,TO,B0,P0,VO 
602 FORMAT (*OLO=", 1PE9.2,T17,'RO=",E£9. 2,732, 'NO=',E9.2,T47,*TU=', 
1E9.2,T62,"BO=",£9.2,T77,*PO=",E9.2,T92, 'VO=",E9. 2) 
WRITE(6,603) NX,M,AO,DX,DT,PWO,TMO 
603 FORMAT(' NX=",13,T17, *M=",13,T32,"A0=", 1PE9.2 
1,T47,"DX=',£9.2,T62, *DT=",E9.2,T77,*PHO=", 59.2 ,T92,*THO=",£9.2) 
WRITE(6,604) DEL, SIGMA, EPS20,FCOLL, ABO 
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604 PORMAT(* DEL=",1PE9.2,1T19, *SIGMA=' ,E9.2,136,"EPS20=", £9, 2 
1,753,*FCCLL=",£9.2,T70, *ABO=",£9.2) 
WRITZ (6,605) DELE1,DELE2,DELI1,DELI2,LLMDA 
605 FORMAT(' DELE1=",1PE9.2,T19, *DELE2=",£9.2,736,' DELII=" , E902 
1,753,'DELI2=",£9.2,T70,*LLMDA=', E92) 
IF (RDN) WRITE(6, 606) 
606 FORMAT('O FULL RADIAL DYNAMICS ARE CALCULATED. '‘) 
IF(.NOT.RDN) WRITE (6,607) 
607 PURMAT(*O EADIAL PRESSURE BALANCE IS ASSUMED.') 
2 RETURN 
END 
SUBROUTINE TPOUT (NTAPE,NTIME,TIME,M,NX,LO,RO,NO,TO,DT,A 
1,TE,TI,N,PHI,V,2,NBOUND, XLAS ,U,W,XMIN, RDN, RM) 
CERERER ERE KEE EKER EERE RE RK EKER EKEKKEKKEKE SEEKER EERE REKE KEKE KEKE EE KKRES 
Cc OUTPUT DATA FROM SHELL ONTO DISK OR TAPE IN UNFORMATTED FORM. * 
é RICHARD D. MILROY 77-04-25 * 
CHERERKE SEE KK RKEKES HERE EE RR ER AE SHAKER EERE REE RK EERE E ERE KEKE EERE EEE AE 
REAL TIME, LO,RO,NO,T0,DT,A (30,60) , TE(30, 60) , TI (30,60) ,N(30, 69) 
1, PHI (31) ,V(30,60) ,P(120) ,XLAS,U (30,60) ,¥ (30,60) 
INTEGER XMIN 
LOGICAL RDN 
WRITE(3) NTAPE,NTINE,TIME,M,NX,LO,B0,NO,TO,DT, NBOUND, XLAS 
1 ,XMIN,RDN,RM 
WRITE(3) A 
WRITE(3) TE 
WRITE(3) TL 
WRITE(3) WN ; 
WRITE(3) PHI 
WRITE(3) 
WRITE (3) 
WRITE(3) 
WRITE(3) 
RETURN 
END 
SUBROUTINE RITE(NTIME,TINZ,M,NX,A,TE,TI,N, PL, V,2,TMO,DT,U,R, EP 
1 ,XMIN, RPB) 
REAL PHI (31) ,A(30,60) , TE (30,60) ,TI (30,60) ,N({30, 60) ,V (30,60) 
1,B(31) , TIME, PRESS(31) ,P (120) ,TMO,DT,U(30,60) , EP (30,60) 
2,R (30,60) , VP (31) 
INTEGER S,X, XMIN 
LOGICAL RPB 
COMMON /PRT/ NXI,NXF,M1,MF,MS 
NNXI = NXI 
NNX = NXP 
IF(NXI.EQ.999) NNXI = XMIW 
IF(NXF.2EQ.999) NNX = NX 
MMP=MF 
IP(MF.EQ.999) MMP=H 
TM=TIME*TMO 
DTS = DT*TMO 
WRITE(6,601) NTIME,TIME,TM,DT,DTS 
601 FORMAT(*-NTIME=',I4,"  TIME=',1PD9.2,*  OR',D9.2," SECONDS! 
1," DT=",D9.2,* OR*,D9.2," SECONDS!) 
WRITE(6,602) 
602 FORMAT('O At‘) 
DO 1 X=NNXI,NNX 
1 WRITE(6,603) (A(S,X) ,S=M1,MMF,MS) 
603 FORMAT(* *,1P20D10.2) 
WRITE(6,604) 
604 PORMAT('O  ‘1E*) 
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DO 2 X=NNXI,NNX 
2 WRITE(6,603) (TE(S,X),S=M1,4MFP,MS) 
WRITE(6,605) 
605 FORMAT(*O0  1*) 
DO 3 X=NNXI,NNX 
3 WRITE(6,603) (TI(S,X) ,S=41,4HF,HS) 
WRITE(6,606) 
606 FORMAT(*0 NF) 
DO 4 X=NNXI,NNX 
4 WRITE(6,603) (N(S,X) ,S=M1,MMP,MS) 
WRITE(6,607) 
607 FORMAT(*0 vy‘) 
DO 5 X=NNXI,NNX 
5 WRITE(6,603) (V(S,X) ,S=M1,MMF,MS) 
IF(RPB) GO TO 9 
WRITE (6,612) 
612 FORMAT("'0 YP!) 
DO 13 X=NNXI,NNX 
DO 14 S=1,M 
14 VP{S) = U(S,X)/R(S,X) 
13 WRITE(6,603) (VP(S),S=M1,MMF,4MS) 
9 WRITE(6,608) 
608 FORMAT('0 BY?) 
DO 6 X=NNXI,NNX 
DO 7 S=1,M 
7 B(S)=PHI(S) /A(S, X) 
6 WRITE(6,603) (B{S),S=M1,MMF,MS) s 
WRITE(6,609) 
609 FORMAT(*0 R BOUNDARIES") 
DO 8 X=NNXI,NNX : 
8 WRITE(6,603) (R(S,X) ,S=M1,MMF,MS) 
WRITE(6,610) 
610 FORMAT(*O  PRESSURE') 
DO 10 X=NNXI,NNX 
DO 11 S=1,M 
11 PRESS(S) =N(S,X)* (TE(S,X) ¢TI (S,X))+* (PHI (S) /A(S,X) ) ¥#2 
10 WRITE(6,603) (PRESS{S) ,S=M1,MMF, MS) 
WRITE (6,614) 
614 FORMAT('O  EP®) 
DO 15 X=NNXI,NNX 
15 WRITE(6,603) (EP(S,X),S=41,MMP,4MS) 
WRITE (6,611) 
611 FORMAT(*O LASER POWER‘) 
NXMP1=NX-NNXI+41 
DO 12 X=1,NXMP1 
12 WRITE(6,603) P(X),P(X+NX) 
RETURN 
END ; 
SUBROUTINE REST(DT,DX,DEL, PCOLL, EPS20, PHI, V,N,A,TE, TI 
1,DELE1,DELE2,DELI1,DELI2,AB0,CS,P, P2,TINE,TM0,XLAS,R, U, WO 


2,XMIN) 
CHER RRS EA REESE EEEE DEAE EEA REE SEER ES ER ER EERE EE RAKE OEE E REED BREE REDO RE RDO RS 
Cc * READS OFF FORTRAN UNIT #2 TO RESTART PROGRAM AT RECORD ONT. * 
¢ * RICHARD D.~ MILROY JUNE 1977. * 


CERE ERE ERE RE RE EEE EERE EEE RE REE EE EE ERE EEE EERE EER ERE EEK E EKER KE REE KS 
IMPLICIT REAL (A-H,0-Z) 
REAL A(30,60) ,TE(30,60) ,TI(30,60) ,N(30,60) ,PHI (31) ,¥ (30,60) 
*,2 (120), LMDA,LLADA,LO,NO,MI,KB,P2( 31) ,PR(30,60) ,R(30,60) ,U(30,60) 
*,W0(30,60),L1,12,L3,NCRIT 
INTEGER XMIN 
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LOGICAL TRBC,RDN 

COMMON L0,RO,NO,T0,PHR1,PUR2,PWR3,T1,T2,T3,T4, TMAX, VLAS,TDP1, TDP2 
*,RM 

1, TS, AVR, AVX, PP,NX,M, NTOTAL, NBOUND, NTIME, NPRT, NTAPE, NXMIN, RDN, TRBC 
2/TSS/A11,A1,A2,A3, DTMAX/LASP/L3, RLO, BS, NCRIT, TL, DTL,M RMAL 
3/PRT/ NXI,NXF,M1,MF,MS 

NAMELIST /INPUT/ NTINE,NTOTAL, NPRT ,NTAPE, PR, PwR1,PWR2, PHRB 
1,T1,T2,T3,T4,TMAX, NBOUND,NX,M,LO,20,N0,T0, R01, ¥, VLAS, 24 
2, BINT, TINT, PP,AVR,A11,A1,A2,A3,L1, 12,13, RLO, BS, DIMAX 

3 NXMIN,NXMIN1, RDN, TDP1,TDP2,NXI,NXF,M1,4F,4S,AVX,MRMAX ,TRBC 
1 READ (2) NTAPE, NT,TIME,M,NX,LO,RO,NO,TU,DT, NBOUND, XLAS 

1 o XMIN,RDN,RM 

READ(2) A 

READ(2) TE 

READ(2) TI 

READ(2) N 

READ(2) PHT 

READ(2) V 

READ(2) P 

READ(2) U 

READ(2) wo 

IF(NT.NE.NTIME) GO TO 1 

READ (5,INPUT) 

DO 2 J=1,NX 

DO 2 I=1,™ 

R(I,J) = SQRT(WO(I,J)) 
2 CONTINUE 

NX2=2*NX 

DO 4 I=1,NX2 
4 P2(I)=P(I) 

L3=L3/L0 

NCRIT = 9.96D#+18/N0 

RLO=RLO/RO 

BS=BS*LO/RO 

DX=1.0/(NX-NBOUND) 

KB=1.6D-12 

C=3.0D+10 

MI=1.67D-24* RM 

PU=NO*KB*TO 

BO=SQRT (8.0*3.1415¥*P0) 

VO=SQRT (KB*¥TO/MI) 

TMO=LO/VO 

A0=3.14159*R 0O**2 

PHO=P0*A0*V0¥*1.0E-07 

CS=C/v0 

LADA=1.356E+ 28* ( (KB*¥TO) ¥*3/ (3.1415 9*NO) ) #*0.5 

LLMDA=ALOG (LMDA) 

DEL=1. 9D21*T0**2.5/(LLMDA*NO*VO*LO) 
(1.9D+21/LLMDA) * (TO¥*2.5*L0) /(NO#VO*R0**2) 


DELE1 = 
DELE2 = (2.45D+25/LLMDA**2) * (TO**3 *B0**2) / (NO**2) 

DELI = (7.8D+19/LLMDA) * (TO**2.5*L0) /(NO*VO*RO**2) *SORT (RM) 
DBLI2 = (7.8D+22/LLMDA**2) * (TO**3*B0** 2) /(NO¥*2) 


SIGMA=8.7D13*TO**1.5/LLMDA 
EPS20=C¥**2*L0O/ (6.283 19 *SIGMA *RO**2 *¥0) 
FCOLL=3,. 25D-09*NO*LLMDA/ (TO**1.5) *LO/(VO*RM) 
ABO=9. 74E-36*NO**2*L0/T04*1.5 


PwR1 = PWR1/PWO 
PWR2 = PHR2/PWO 
PWR3 = PWR3/PWHO 
T1 = T1/THO 
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T2 = T2/TMO 
T3 = T3/TMO 
T4 = T4Yy/TMO 


TS = T4+3.0/CS 
TMAX = TMAX/TMO 
VLAS=VLAS/VO 
DTMAX = DTMAX/TMO 


Cess-=—=— INITTALIZE LHEAT. 


TL = TIMZ 
DIL, =. DX/CS 


5 WRITE(6,601) 
601 FORMAT(*1",* INITIAL CONDITIONS') 
WRITE(6,602) LO,RO,NO,TO,B0,PO0,VO 


602 FORMAT (* OLO=",1PE9.2,T17,'RO=!,£9. 2,732, 'NO=",£9.2,T47,*T0=", 
169.2,T62,*BO=',£9.2,T77, *PO0=",£9.2,T92, 


604 FORNAT(! DEL=',1P29.2,T19,*SIGMA=' ,E9.2,T36,*EPS20=",£9.2 


605 FORMAT(! DELEI=",1PE9.2,T19, *DELE2=" ,H9. 2,736," DELI1=',E9.2 


606 


607 


1,T47,'DX=",E9.2,T62, *DT=",E9.2,T77,'PWO=", £9.2 2T92,'TMO=",E9.2) 


WRITE(6,603) NX,M,AO,DX,DT,PHO,TMO 
603 FORMAT(! NX=",13,T17,*M=",13,732,'A0=",1PE9.2 


W@RITE(6,604) DEL, SIGMA, EPS20, FCOLi, ABO 


1,753," FCOLL=',£9.2,T70,"ABO=",5E9.2) 
WRITE(6,605) DELE1,DELE2,DELI1,DELI2,LLMDA 


1,753," DELI2=",£9.2,T70,"LUMDA=", £9.42) 


IF(RDN) WRITE(6,606) 


*VO=",E9. 2) 


FORMAT (*O FULL RADIAL DYNAMICS ARE CALCULATED. *) 


IF(.NOT.RDN) WRITE (6,607) 


FORMAT ('O RADIAL PRESSURE BALANCE IS ASSUMED. *) 


RETURN 
END 


SUBKOUTINE LHEAT(M,NX,STEP,TIME,T1,T2,T3,T4,NBOUND,TE15, XUIN 
1,PWR1,PWR2,PWR3,XLAS,VLAS,RO,ABO,P,P2,PR,R,N,A, TE, EP, DX, NXP1,T0) 


CHEER ERE ER REE EEE ERE EKER RRR ERE AK RRR ERE RAE EEE RRR KEE EE EEEKE RE KEE KSE 
FIND LASER POWER. 
P IS POWER IN UNITS OF (NO¥*KB*TO*AQ*VO) 


C 
Cc 
Cc 
Cc 


* 
* 
x 
* 


E=(UNITS OF POWER) /(UNIT OF LENGTH) DEPOSITED IN PLASMA. 
RICHARD D. MILROY 


MAY 15, 


1977. 


* 
x 
4 
a 


C ERK ERE EERE EERE EEE ERE EERE EERE EE EERE KEKE EEE EERE EKER EKER AKER RKEK EEE KE 


IMPLICIT REAL (A-H,O-Z) 


REAL P (120) , PR(30,60) ,R (30,60) ,N (30,60) ,A(30,60) ,TE(30,60) 
1,2P(30,60) , PST (120) ,P2 (120) ,E(120) ,KA(120) ,LMDA,LLMDA (30,60) ,L3 


2,NCRIT,NCOR,TE15 (30,60) ,KA1 (120) 


REAL TDIF 
INTSCGER S,X,STEP,XMIN 


COMMON/LASP/L3,2L0,BS,NCRIT, TL,DTL,MRMAX 


TO1S = TO*SQRT (TO) 


NXP2 = NX # 2 

NX2 = 2*NX 

NX2M2 = NX2 - 2 

TDIF = TIMZ - TL 

MR = (TDIF/DTL + 0.5) 
IE (MR.LT.0) STOP 
MR=MINO (MR,M RMAX) 
IP(STEP.EQ.1) MR=MR/2 
IF (MR-EQ.0O) RETURN 
DT = 0.0D0 

IF (STEP.EQ.2) DT=MR*DTL 
TL = TL+DT 


SSS CALCULATE MR = NO. OF LASER TIMESTEPS TO TAKE. 


------- LASER PROP. DIST. LIMITED BY BLEACHING WAVE VELOCITY - VLAS. 
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XLAS=XLAS+VLAS#DT 
NLAS=(XLAS/DX) + 2 

NXP2MX = NX#2-XMIN 

NLAS = MINO(NXP1,NLAS,NXP2HX) 

-- DEFINE PR(S,X). RELATIVE RADIAL INTENSITY. 
~- ASSUME GAUSSIAN PROFIL. 

DO 6 X=XMIN, NX 

Jen ete s 

Z = DX*(J-1) 

SIGMA = RLO + BS*ABS (L3-2Z) 


SIG2 = 2.0*SIGMA**2 
RS = 0.0 
DO 6 S=1,M 


RS = 0.5*(RS#R(S,X)) 

EXZZ = RS**2/SIG2 

IF (EXZZ.GT.100.0) EXZZ = 100.0D0 
PR(S,X) = EXP(-EXZ2Z) ; 

RS, = R{S.,X) 

CONTINUE 

--- DEFINE LASER POWER AT FIRST X — POINT. 
IF (TIME.GT. T1) GO TO 15 

P1 = PWRI*TIME/TI 

GO TO 85 

CONTINUE 

EFL TIMESGT. 12) GO. TO 16 

P1 = PWR1+(PWR2-PWR1) * (TIME-T1) / (T 2-11) 
GO TO 85 

CONTINUE 

IF (TIME.GT.T3) GO TO 17 

P1 = PWR2+ (PWR3I-PWR2) * (TIME-72) / (T 3-T2) 
GO TO 85 

CONTINUE 

I?) (TIME.GT. 18). GO.TO. 18 

P1 = PWR3-PWR3* (TIME-T3) /(T4-T3) 

GO TO 85 

P1 = 0.0D00 

CONTINUE 

---- DEFINE PSI (xX) 

DO 13 X=XMIN,NX 

PSI (X) =0.0 

DO 13 S=1,4u 

LMDA=18.7*TE (S,X) *T0 . 
IP (TE(S,X)*TO.LT.27.0) LMDA=2.3* (T015*TE15 (S,X)) 
IF(N(S,X) «GT. (0.9999*NCRIT)) GO TO 20 
NCOR = 1,0/SQRT(1.0-N(S,X) /NCRIT) 

GO TO 21 

NCOR=100.0 

CONTINUE 

LLMDA(S,X)=ALOG (LMDA) *NCOR 

PSI(X) =PR(S,X) *A (S,X) #PSI(X) 


—---- DEFINE KA(X) - LASER ABSORPTION RATE AT X-POINTS. 


DOn OX =XeLN, NX 

KA (X) =0.0 

DO 14 S=1,4M 

KA (X) =KA(X) #N(S,X) **2*PR (S,X) *A(S,X) *LLMDA (S,X) /TE15(S,X) 
KA (X) =KA (X) ®ABO/PSI (X) 

KA1(X) = KA(X) 

IP (KA (X) «GTe (2.0/DX)) KA(X)=2.0/DX 

CONTINUE 

-- INITIALIZE E(X) TO 0.0. 
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DO) 7 X21, NX2 
7 £(x) 5020 
C-------- FIND LASER POWER. 
DO 2 IT=1,MR 
P3=P1 
DOWd)%=2,,NLAS 
PO=P (X-1) *(1.0-0.5¥*KA(NX#2-X) *DX)/ (1.040. 5*KA (NX#2-X) *DX) 
E (X- 1) =E (X-1) + (P (X-1) -P0) /DX 


P (X-1) =P 
3 P3=P0 
P(NLAS) =P3 


IF (NBOUND.EQ.1) GO TO 2 
IF(NLAS.LT.NX) GO TO 2 
DO 4 X=NXP1, NX2M2 
PO=P (X-1) *(1.0-0.5 *KA (X-NX+2) *DX)/ (1.040. 5#KA (X-NX#2) *DX) 
EB (X- 1) =E (X-1) + (2 (X-1) -P0) /DX 
P (X-1) =P3 
4 P3=P0 
P (NX242) =B3 
2 CONTINUE 
I=NLAS 
IF (NBOUND.EQ.2) I=NX2M2 
IF(STEP.EQ.1) GO TO 10 
DO 23 X=1,1 
23 P2(X) =P{X) 
GO TO 26 
10 CONTINUE : 
DO 22 X=Fe1 
22 P(X) =P2 (x) 
26 CONTINUE 
DO 5 X=XMIN, NX 
DO 5 S=1,M 
EP 1=ABO/(KA1 (X) *PSI(X)) *N(S,X) *PR(S,X) *LUMDA (S,X) /TE15 (S, X) 
EP(S,X) = EP1*E(NX+1—X) /MR 
IF (NBOUND.EQ.2) EP (S,X)=EP(S,X) +EP 1*E(NX—3+X) /MR 
5 CONTINUE 
RETURN 
END 
SUBROUTINE DTIME(DT,NX,M,TE,TI,TE2,N,PHI,A,R,EPS1,XMIN,RDN,DX) 
CEEEKEKEEE ERE EK ERE EERE KER ERE EEE EE REE KEK REE KE EKER KK REAR KKKKRKEKK KS EERE 


C ne CALCULATE MAXIMUM ALLOWABLE TIMESTEP 2-D ROUTINE CAN MAKE. * 

C * STABILITY CONDITION IS BASED ON RADIAL DYNAMICS, i 

Cc * RICHARD D. MILROY DECEMBER 15, 1977... * 

CRERERKEEREE ERE KER REG EE REE RE EE EK ERE ER RRR ORR REE RRR EK AR RRR KEK KE EEE EEK 
. IMPLICIT REAL (A-H,0-2) 


RZAL TZ(30,60) ,TI (30,60) ,TE2 (30,60),N(30,60) ,8 (30,60) 
1,NINT(31) ,PHI (31) ,A(30,60) 

INTEGER XMIN,S,X 

LOGICAL RDN 

COMMON/TSS/A 11,A1,A2,A3,DTMAX 


DTO = DT 
MM1 = 2 
MM2 = 1 
NXS = 1 


DTST = 1.0D+50 
DTTEN = 1.0D+50 
DZ = DX 
Gx = <== = MAKE DT SATISFY RADIAL STABILITY CONDITION. 
DO 1 X=XMIN,NX,NXS 
S=1 


2 CONTINUE 
1 CONTINUE 
C------- LIMIT DT SO ELECTRON TEMP. DOES NOT CHANGE TOO FAST. 
DO 3 X=XMIN, NX,NXS 
DO 3 S= 1 ,MM2 
DTE = ABS({TE(S,X) - TE2(S,X)) 
IF(DTE.LT.1.0D-20) DTE = 1.0D-20 
DTN = A2*TE2 (S,X) *DTO/DTE 
IF (DTN.LT.DTTEM) DTTEM = DTN 
3 CONTINUE 
C------- PREVENT DT FROM INCREASING BY MORE THAN A FACTOR OF A3q 
DIN = A3*DTO 
C------- SET DT TO MOST RESTRICTIVE CASE. 


S = PHI (S)/A(S,X) 

= (1.6667* (TE(S, xX) +TI(S,X))) # (2.0*BS**2/N(S,X)) 
= SQRT(C) 

F({RDN) DZ=R(S,X)*EPS1 

DIN = A1*DZ/C 

IF(DTN.LT.DTST) DTST = DTN 

IF(MM1.LT.2) GO TO 1 

DO 2 S=2,MM1 

BS = PHI (S)/A(S, xX) 

C = (1.6667* (TE(S,X) +T1(S,X))) # (2.0*BS**2/N(S,X)) 
C = SQORT(C) 

IF(RDN) DZ=(R(S,X)-R(S-1,X)) *EPS1 

DIN = A1*DZ/C 

IF(DTN.LT.DTST) DTST = DTN 


DT = AMIN1(DTST,DTTEM, DTN) 
IF(DT.GT.DTMAX) DT=DTMAX 

RETURN 

END 

SUBROUTINE NDPTS (XMIN,P,NX,NBOUND, NXMIN) 


C ERR E RK ERE EE REKRK EREEEKEEE ESHER EK ERE EEE EKER KERR KEREE EKA KKK KA AKKE EK 


Cc 
Cc 
Cc 
Cc 
Cc 
Cc 


—_ 


* 
* 
* 
%e 
* 


CALCULATE XMIN. 


PREVENTS PROGRAM FRCS DOING CALCULATIONS IN SECTIONS 


WHERE THERE IS NO PLASMA MOTION. 
TO REDUCE CPY COSTS. 
RICHARD D. MILROY. 78-01-06 


REAL P (120) 
INTEGER XMIN 

NXP1 = NX+2-NBOUND-NXMIN 
N1 = NX-XMIN¢3-NXMIN 
K=N1-1 

DO 1 J=N1,NXP1 
IF(P(J).LT.120D-10) GO TO 2 
K=J 

NX2 = NX-K+2 

NX2 = NX2-NXMIN 
IF(XMIN.GT2NX2) XMIN=NX2 
RETURN 

END 


“eee et 
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601 PORMAT ('-*,* ENTER I - I3 FORMAT. - AND TR'y* ' 


501 


1 


602 
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TEST FOR CONSERVATION OF ENERGY IN 2-D M.H.D. ROUTINE. 


MARCH, 27, 1977. 
MODIFIED APRIL, 30, 1977. 


MODIFIED AGAIN (TO INCLUDE CHECK ON CONSERVATION OF MASS) 


ON JANGARY, 18, 1978. 


WRITTEN AND MODIFIED BY RICHARD Ds. MILROY. 
CEREEEREERR EE ERE EE EERE EERE EERE EH EEE RK REE EER EE EAA ERAS SERED KEKE 


REAL A(30,60),TE (30,60) ,TI (30,60) ,N(30,60) ,PHI (31) 


V¥ (30,60) ,LO,NO,LLMDA,P(120) ,# (30, 60) ,¥P(30,60) 


LOGICAL RDN 


COMMON A,TE,TI,N,PHI,V,LO,NO,VO,T,NS,NZ,DZ,DEL,GU1L,GG,P,H,VP 
COMMON /CONST/Y NBOUND,NBR,NBL,N1,N2,N3,N4,N5,N6,N/,NS,EPS1 
~7~77READ IT, WILL CALCULATE ENERGY OF EVERY I'TH RECORD, 


WRITE(6,601) 


READ(5,501) IX,TF 
PORMAT(I3,E10.3) 
GAM=5.073.0 
GM1I=1.0/(GAM-1.0) 
GG=GAM*GM1I 


I TR.) 


~--CALCULATE DEL POR THERMAL CONDUCTIVITY OUT END. 
READ (3) NTAPE, NTINE,T,NS,NZ,LO,RO, NO,TO,DT,NBOUND, XLAS 


»XSIN, RDN, BM 

THO = 1.02E-06*LO/SQRT (TO) *SQRT (RM) 
NBL=2 

NBR=2 

IF(NBOUND.EQ.2) NBL=1 
N1=NBL+1 

N2=NBL+2 

N3=NZ-NBR-1 

N4Y=NZ-NBR 

N5=NBR#2 

N6=NZ-NBL 
N7=2*NZ-3-NBR 
N8=N4-N1 

BACKSPACE 3 

EPS1 = RO/LO 

DUI 0.0 

DG1 0.0 


LLMDA=ALOG (1.356E+# 28% ( (1,6E-12*T0) **#3/(3.141594N0) ) **0.5) 


VO=SQRT (1. 6£-12*T0/(1.67E-24*RM) ) 
DEL= 1. 9E21*T0**2.5/(LLMDA*NO*VO#*LO) 

IT=1 

IF(IX.NE.1) IT=2 

—---CALCULATE ENERGY ETC. IN 1'ST RECORD. 
CALL RD(DU,DG,&4) 

T2=T 

CALL ENG (U1,G1) 

DUT=DU 

DGT=DG 

TIME = T*TMO 

WRITE(6,602) TIME,U1,G1 

FORMATY*) &,*AT *,1PE10.3,* SEC. O= *,E10.3,' 
GO.70(3,2) ,1T 

CONTINUE 

----PIND DU AT INTERMEDIATE TIMESTEPS. 
IM1=IX-1 

DO 1 I=1,IM1 


MASS = *,£10. 3) 
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CALL RD(DU,DG,&4) 
T1=T 
DELTT=11-T2 
T2=T1 
DU1=DU1+0.5*DELTT* (DUT+DU) 
DG1=DG 1+0.5* DELTT* (DGT+DG) 
DUT=DU 

1 DGT=DG 

3 CONTINUE 

C------~--- FIND ENERGY ETC. IN I'TH RECORD, 
CALL RD(DU,DG,&4) 
T1=T 
DELTT=T1-T2 
T2=T1 
DU1=DU1+0.5*DELTT* (DUT+DU) 
DG1=DG1#0.5* DELTT* (DGT+DG) 
DUT=DU 
DGT=DG 
CALL ENG (U2,G2) 
DIFF=U2-U1 
DIFG=G2-G1 
FRACT= (DIFF+DU1) *2.0/(01+U2) 
FRACG= (DIFG+#DG1) *2.0/(G1+G2) 
WRITE(6,603) DIFF,DU1,FRACT 
603 PORMAT(* ',"DIFP= ',1PE10.3," ENERGY LOST OUT END = ',£10.3, 
1" FRACTIONAL ERROR='",£10.3) 
WRITE(6,604) DIFG,DG1, FRACG 
604 PORMAT(* ',*DIFF= ', 1PE10.3,* MASS LOST OUT END = *,£10.3, 

1" FRACTIONAL ERROR=',E10. 3) 
TIME = T*TMO 
WRITE (6,502) TIME,U2,G2 
U1=U2 
G1=G2 
DU1=0.0 
DG1=0.0 
IP(T.GT.TF) IT=3 
GO T0(3,2,4) ,IT 


4 STOP 
END 
SUBROUTINE RD(DU,DG,*) 
C---—-~----READS DATA & CALCULATES ENERGY & MASS LOST FROM ENDS. 


REAL A(30,60),TE (30,60) ,TI (30,60) ,N(30,60) ,PHI (31) 
1,V (30,60) ,L0,N0,P(120) ,W (30,60) , VP (30, 60) 
COMMON A,TE,TI,N,PHI,V,LO,NO,V0,T,NS,NZ,D2Z,DEL,GM11,GG,P,4,VP 
COMMON/CONST/ NBOUND,NBR,NBL,N1,N2,N3,N4,N5,N6,N7,N8, EPS 1 
READ(3,END=1) NTAPE,NTIME,T,NS,NZ,LO,RO,NU,TO0,DT,NBOUND 
DZ=1.0/(NZ-NBOUND) 
READ(3) A 
READ(3) TE 
READ (3) TI 
READ(3) N 
READ(3) PHI 
READ (3) V 
READ(3) P 
READ(3) VP 
READ(3) W 
DO 7 J=1,NZ 
DO 7 I=1,NS 
7 VP(I,J) = VP{I,J)/SQRT(W(I,J)) 
DO 5 J=1,NZ 
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VPs1 = 0.5*¥P(1,J) 
DO 6 IT=2,NS 
VPS2 = 0.5*(VP(I-1,J) + VP(I,J)) 


VP(I-1,3) = VeS1 
6 VPS1 = VPS2 
5 VP(NS,J) =VPS1 
DU=0.0 
DO 2 I=1,NS 
DU=DU+t (A(L,N4) *(GG*N(I,N4) *(TE(I,N4) +TI (I, N4) ) +0.5*N(1I,N4G) * 
1(V(I,N&) **2¢ (ZPS1*VP (I ,N4) ) **2)) *V (1,N4) *DT) 
2+DEL*A (I,N4) *TE (I, N4) **2,540.5* (TE (I, N4-1) -TE(I,N4t1) ) * (DT/DZ) 
2 CONTINUE 
IF (NBOUND.EQ.2) GO TO 4 
pO 3 I=1,NS 
DU=DU- (A (I,N1) *({GG*N (I,N1)*(TE(I,N 1) +#TI(I,N1)) +0.5*N(I,N1) * 
1(V(I,N1) **2+ (EPS1* VP (I,N1))**2)) *V (I,N1)*DT) 
2-DEL*A (1,01) *TE(I,N1) **2.5%0.5* (TE (I,N1-1)-TE(L,N1#1)) *(DT/DZ) 
3 CONTINUE 
-------- ADD LASER ENERGY INPUT. 
4 CONTINUE 
IP (NBOUND.EQ.1) DU=DU-0.5* (P (NBR+1)+P(NBR+ 2) —P (N6)-P(N6#1)) *DT 
IP (NBOUND.EQ.2) DU=DU-0.5*{P (NBR+1)+P(N3R+2) -P(N7)-P(N7+1)) *DT 
------- CALCULATE MASS LOST FROM SOLENOID ENDS. 
DG = 0.0 
DO 8 I=1,NS 
8 DG = DG + A(I,N4)*V(I,N4)*N(I,N4) *DT 
IF (NBOUND.EQ.2) GO TO 9 : 
DO 10 I=1,NS 
10 DG = DG — A{I,N1)#*V(I,N1)*N(I,N1) *DP 
9 CONTINUE 
DU=DU/DT 
DG=DG/DT 
RETURN 
1 WRITE(6,601) 
601 FORMAT(' *,*ENDFILE ON UNIT #3) 
RETURN1 
END 
SUBROUTINE ENG{U,G) 
--------- CALCULATE TOTAL ENERGY & MASS IN SOLENOID. 
REAL A(30,60),TE(30,60) , TI (30,60) ,N(30,60) , PHI (31) 
1,V (30,60) ,LO0,NO,P(120) ,¥ (30,60) , VP (30, 60) 
REAL*8 UD,DBLE,GD 
COMMON A,TE,TI,N,PHI,V,LO,NO,VO,T,NS,NZ,DZ,DEL,GM11,GG,P,W,VP 
COMMON/CONSTY NBOUND,NBR,NBL,N1,N2,N3,N4,N5,N6,N7,N8,EDS1 
UD=0.0D0 
DO 1 J=N2,N3 
DO 1 I=1,NS 
B=PHI(I) /A(I,J) ‘ 
U=A (I,J) *(GM1I*N (I,J) * (TE(I,J) #TI (I,J) ) +B**2+0. 5*N (I,J) 
1* (V (I,J) **2+ (EPSI®VP (I ,J)) **2)) 
UD=UD+DBLE (U) 
1 CONTINUE 
DO 2 J=N1,N4,N8 
DO 2 I=1,NS 
B=PHI(I) /A (I eJ) 
U=A (I,J) *(GM1I*N (I,J) *(TE(I,J) +TI(I,J)) +B**2+0.5¥*N (I,J) 
1* (V (I,J) **2+ (EPS1*VP (I ,J)) **2)) 
UD=UD+0.5D0*DBLE (U) 
2 CONTINUE 
—------- ADD ENERGY OF LASER BEAM. 
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PENG=0.0D0 
DO 3 J=N5,N6 

3 PENG=PENG#P (J) 
IP(NBSOUND.EQ.1) GO TO 5 
DO 4 J=NZ,N7 

4 PENG=PENG+P (J) 

5 CS=3.0D+10/¥0 
PENG=PENG/CS 


UD=UD+PENG 

Ol CALCULATE FINAL VALUE OF ENERGY. 
U=SNGL (UD) 
U=U*DZ 

C------- CALCULATE TOTAL MASS IN SOLENOID. 
GD = 0.0 


DO 6 J=N2,N3 

D0\j6a1=1,NS 

G = A{I,J)*N (I,J) 
6 GD = GD+DBLE {G) 

DO 7 J=N1,N4,N8 

DO 7 I=1,NS 

Gi=RA (CL BIAN (1,3) 
7 GD = GD+0.5*DBLE (G) 

G=SNGL (GD) 

G=G*DZ 

RETURN 

END 
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Cc * DRAW 3-D PLOTS FOR 2-D MHD ROUTINE. & 
Cc * RICHARD D. MILROY 1977 * 
CER EKEK EEE EKER KEELE REE ER HEE ERE KER EEE EEE EK EERE ERE EKER EERE AER EERE AE AEE SEE 
REAL A(30,60),TE (30,60) , TI (30,60) ,N(30,60) ,B(30,60) 
1,V (30,60) ,R(30,60) ,PHI (30) ,2 (62) ,RX(62) 
2,D(100, 100) , RT (30,60) ,RX1(30, 60) 
3,P (120) ,PT(30) ,LO,NO,# (30,60) ,YPS( 30,60) , NMAX 
LOGICAL RDN 
COMMON/AREA1/DIST, PITCH, SIZE, KODE, MGN, NIR, NIQ, NIL 
NNZ = 60 
NR=30 
NIR=4 
NIL=4 


MGN = 2 

WRITE(6,601) 

601 FORMAT(? INPUT NO OF PLOTSETS - I3 FORMAT") 

READ (5,501) NPLTS 

501 FORMAT (I3) 

WRITE (6,602) 

602 #ORMAT(? INPUT DESIRED PLOT TIMES®) 

READ(5,502) (PT(I) ,l=1,NPLTS) 

502 FORMAT (10E10.3) 

READ(3) NTAPE, NTIME, T,NS,NZ,LO,R0, NO,TO,DT, NBOUND,XLAS 
1,XMIN,RDN,RM 
TMO=LO/SQRT(9.58E+11*T0) *#SQRT (RM) 

DO 1 I=1,NPLTS 

1 PT(I)=PT (I) /TMO 

NS2=NS+2 

NZ2=NZ+2 

NR2=NRt2 
CALL PLOTS 
CALL ORG1(SIZE,SIZE) 

CALL MPLT2(NS,NZ,NNZ,NR,NS2,NZ2, PT ,NPLTS, SIZE, NMAX 
1,A,TE,TI,N,ByV,R,PHI,Z,RX,D,RT,RX1 
2,NR2,W,VPS,YAW, BM, RDN) 

CALL PLOT(U0.0,0.0,999) 

STOP 

END 
SUBROUTINE MPLT2(NS,NZ,NNZ,NB 
1,NS2,NZ2,PT, NPLTS, SIZE, NMAX 
2,A,TE,TI,NgBeV,R, PHI ZyRX,D, RT, RX1,NR2 
3,8,VPS,YAW,RM, RDN) 

REAL A(30,60),TE(30,60) ,TI (30,60) , N(30,60) ,B(30,60) 
1,¥(30,60) ,R(30,60) ,PHI (30) ,Z(NZ2) , RX (NZ2) 
2,RT(30,60) ,u0,NO,D(NR,NNZ) ,RX1(30, 60) 

3,P (120) ,PT(30) ,W (30,60), VPS (30,60) ,NMAX 

LOGICAL RDN 

BACKSPACE 3 

NP=1 

T=-1.0E50 

1 TOLD=T 
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READ (3,END=23) NTAPE,NTIME,T,NS,NZ,LO, RO,NO,TO,DT,NBOUND 
IF(Z.GT.PT{NP)) GO TO 20 
READ(3) A 
READ(3) TE 
READ (3) TI 
READ (3) N 
READ(3) PHI 
READ (3) V 
READ(3) P 
READ (3) VPS 
READ(3) W 
GO TO 1 
20 CONTINUE 
IF (ABS (PT(NP)-T) «GT. ABS (PT(NP)-TOLD)) GO TO 21 
NP=NP+1 
READ(3) A 
READ (3) TE 
READ{3) TI 
-READ(3) N 
READ(3) PHI 
READ (3) V 
READ (3) P 
READ(3) VPS 
READ(3) W 
GO TO 22 
21 BACKSPACE 3 4 
T=TOLD 
NP=NP+1 
GO TO 22 
23 NP=NPLTS+1 
22 CONTINUE 
--------- DEPINE B{S,Z)« 
DO 11 J=1,NZ 
DO 11 I=1,NS 
11 B(I,d) =PHI(I)/A(I,J) 
---------- PIND R(S,2Z) 
DO 4 J=1,NZ 
JJ = NZ+1-J 
AT=0.0 
ATO=0.0 
DO 5S I=1,NS 
AT=AT+A (I,J) 
R (Ip JJ) =0.5* (SQRT (ATO) +SQRT (AT) ) 
RX1(1,JJ) =SQRT (AT) 
ATO=AT 
5 CONTINUE 
4 CONTINUE 
a PLOT CURRENT TIME IN SECONDS. 
TIME=T*¥LO/SQRT(9.58E+11*TV) *SQRT (RM) 
NEXP=ALOG10 (TIME) 
NEXP=NEXP-1 
EXP=NEXP 
BASE=TIME/ (10. 0**NEXP) 
HT=(SIZE-2.0)/15.0 
CALL SYMBOL(1.0,1.0,HT, *TIME= ¥) 10°%,.0.0, 14) 
VX=1.0+5.0*HT 
CALL NUMBER({VX,1-0,HT,BASZE,0.0,2) 
VX=1.0+14.0¥*HT 
VY=1.0+¢0.5*HT 
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HT=0.5*HT 
CALL NUMBER(VX,VY,HT,EXP,0.0,-1) 
CALL ORG (SIZE,SIZE) 


C-------- CONVERT QUANTITIES TO MORE NATORAL UNITS. 


Gea iru 


999 


\ 


1 


2& TI IN EV. V IN 10**7 CM/SEC. BIN KG. N IN 10**17 CM**-3, 
VO = 9.788E+05*SQRT(TO) /SQRT (BM) 

BO = 6.341E-09*SQRT(NO*TO) 

DO 12 J=1,NZ 

DO 12 I=1,NS 

TE({I,J) TO*TE (I,J) 

TIAL J) TO*TI (I,J) 

V(I,J) = VO*V(I,J) 

VPS(I,J) = VO*®RO/LO*VPS (I,J) /RX1 (I,J) 
B(I,dJ) = BO*B(I,J) 

N(I,J) = NO*N(I,J) 

IF(N(I,d).GT.NMAX) N(I,J) = NMAX 
CONTINUE 

DO 13 J=1,NZ 

V2S (1,3) =0.0 


iiou 


---- PLOT VARIOUS QUANTITIES 


CALLYPRBND(SIZE,RX1,RX,ZeNSeHZeNZ2, L0, R20) 

CALL PL3D$(NS,NZ,NR,NNZ,NBOUND,TE,D,R,YAW, RO, LO, 'TE', 2) 
CALL PL3D$(NS,NZ,NR,NNZ,NBOUND,TI,D,R,YAW,RO,LO,*TI', 2) 
CALL PL3DS(NS,NZ,NR,NNZ, NBOUND,V,D,R,YAW,RO, LO, 'VZ",2) 
IF (RDN) 

*CALL PL3D$(NS,NZ,NR,NNZ,NBOUND,VPS,D,B,YAW,RO,LO,* VR", 2) 
YAW = 360.0-YAW ‘ 
CALL PL3D$(NS,NZ,NR,NNZ, NBOUND,B,D,R,YAW,RO,LO,'B', 1) 
CALL PL3D$(NS,NZ,NR,NNZ,NBOUND,N,D,R,YAW,RO,LO,'N*, 1) 
YAW = 360.0-YAW 
CALL LASPLT(P,NZ,NO,TO,RO,LO, NBOUND) 

IF(NP.LE.NPLTS) GO TO 1 

RETURN 

END 

SUBROUTINE RORG(Q,QN,R,NS,NZ,NE,NNZ, NBOUND) 


--- SUBROUTINE RE-ORGANIZES DATA TO RECTANGULAR GRID QN. 


--- LINEAR INTERPOLATION IS USED. 
REAL Q(30,60),8(30,60) ,QN(NR,NNZ) 


--- REVERSE ORDER OF 2*ND INDEX IN ARRAY Q. 


M = NZ/2 

DO 4 J=1,M 

M1 = NZ+I-J 

DO 1 I=1,NS 
TEMP = Q({I,J) 

Q (I,J) = Q(1,41) 
Q(I,M1) = TEMP 


C= ————— ND ON 


DZN = 1.0/(NNZ-1) 

DZO = 1.0/(NZ-NBOUND) 
DO (2 J=1,NNZ 

Z = (J-1) *DZN 
L°=°Z/DZ0 + 1 
IP(L.EQ.NZ) GO TO 7 


Let = L+1 

Z1 = (L-1) *DZO 

Z2 = L*DZO 

A2 = (2-21) /(Z2-21) 
AVieetSo - A2 

GO TO 8 
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CONTINUE 

RN = ({I-1)*DRN 

RO = A1*R(K,L) + A2*R(K,LP1) 
IF(RO.GT.RN) GO TO 4 
IF(K.GE.NS) GO TO 5 


K = K+ 
GO TO 3 
KM1 = K-1 


LE (Ks BO oct) .0 ohOseo 

RO1 = A1¥*R(KM1,L) + A2*R(KM1,LP1) 
B = (RN-RO1) /(RO-RO1) 

QM = A1*Q(KM1,L) + A2*Q(KM1,LP1) 
QP = A1*Q(K,L) + A2*Q(K,LP1) 
QN(I,J) = QM + B*(QP-QM) 

GO TO 2 

QN(I,J) = A1*Q(K,L) + A2*Q(K,LP1) 
CONTINUE 

RETURN 

END 

SUBROUTINE ORG1(XLEN,YLEN) 
----MOVE ORIGIN IN A WAY TO MINIMIZE PLOTTER PAPER WASTE. 
----FOR TEKTRONIX, RE-SCALE PLOT AND HALT UNTILL RETURN ENTERED. 
CALL TCLEAR (6&1) 

CALL TERASE(&1) 
F=AMIN1(30.0/XLEN, 20.0/YLEN) 

CALL FACTOR (F) 

CALL PLOT (2.0, 2.0,-3) 

GO TO 10 

CALL PLOT(3.0,3.9,-3) 

x0=0.0 

YO=0.0 

XL=XLEN 

YL=YLEN 

GO TO 10 

ENTRY ORG({XLEN,YLEN) 

—----2NTER HERE FOR ALL BUT 1'ST CALL TO THIS ROUTINE. 
CALL TCLEAR(&2) 

READ (6,601) NOTNG 

FORMAT (15) 

CALL TERASE(6&2) 

READ(6,601) NOTNG 

GO TO 10 

VX=6.0+XL 

VY¥=6.0+YL 

Y=YO+VY+YLEN 

YL=YLEN 

IF(Y¥.~GT.33.0) GO TO 3 

CALL PLOT (0.0, VY,-3) 

yYO=YO+*VY 

IF (XLEN.GT.X1L) XL= XLEN 

GO TO 10 

VY=- YO 

CALL SLOT(VX-V1,~3) 

XL=XLEN 
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XO=X0+VX 
Y0=0.0 

10 RETURN 
END 
SUBROUTINE PL3D${NS,NZ,NR,NNZ,NBOUND,Q, QR, B 
1,YAW,RO,X0,/MESS/, NCHAR) 
REAL Q(30,60),QR(NR,NNZ) ,R (30,60) 
COMMON/AREA1/DIST, PITCH, SIZE, KODE, MGN, NIB, NIQ, NIL 
CALL FILT3D(Q,NS,NZ) 
CALL RORG(Q,QR,R8,NS,NZ,NR,NNZ, NBOU ND) 
K=3 
SC2140 
CALL CPLT3D(QR,NR,NNZ,K, DIST, YAW,PITCH,SIZE,KODE,MGN,SC 
1,NIR,NIQ,NIL,RO,X0,MESS, NCHAR) 
CALL ORG (SIZE,SIZE) 
RETURN 
END 
SUBROUTINE LASPLT(P,NZ,NO,TO,RO, LO,NBOUND) 

CRE KEK KEKE KK HEH RK EEK KE EKER EK EKER EEK KEKE KEE EKER EKER EREK KEKE EK EKEKEE 


Cc * PLOT LASER POWER VERSUS Z. - IN GH. Se 
C * MAY, 23,1977. * 
Cc ae RICHARD D. MILRCY * 


CRE KR EKER KKK KEK REE KK KEE KER EKER EE EKER EEK KEKE ERE KKKK ERE KEKE KEKE AE EHEEEE 
REAL P(120),2(120) ,NO,LO 
M=NZ+1 
IF(NBOUND.EQ.2) M=2*NZ-2 
MP1=M+1 4 
MP2=M+2 
XLEN=6.0 
YLEN=4.0 
DO 2 I=1,M 
2 P(I) =4.92E-22*NO*TO**1.5*RO*RO*P (LT) 
AXDELT=NBOUND/XLEN*LO 
DTIC=XLEN/8.0 
CALL AX1S2'(0.0,0.0,"2Z*,—1, XL 0. 0,000, AXDELT, DTIC) 
CALL SCALE(P,YLEN,M, 1) 
YMIN = P(MP1) 
YDELT = P(MP2) 
CALL AXIS2(U.,0.,*LASER POWER (GW) ',16,YLEN,90.,YMIN, YDELT,-1.) 
DZ=1.0,/(NZ-N BOUND) 
DO 1 I=1,mM 
1 Z{1)=(1-1.5) *DZ 
Z (MP1) =0.0 
Z (NP2) =NBOUND/XLEN 
CALL LINE (Z,P,M, Ve0, 1) 
CALL ORG({XLEN,YLEN) 
RETURN 
END - 
SUBROUTINE REND(SIZE,RX1,RX,Z,NS,NZ,NZ2,L0,R0) 
REAL RX1(30,60),RX (NZ2) ,LO,Z (NZ2) 
So PLOT R(S,Z) : SHELL CENTERS. 
XLEN = SIZE 
YLEN = SIZE/2.0 
XDELT=1. 0/XLEN*LO 
XDTIC=XLEN/4.0 
YDTIC=-YLEN/4.0 
CALL AXIS2(0.0,0.0,'Z',-1,XLEN,0.0,0.0,XDELT, XDTIC) 
CALL AX1S2(0.0,YLEN,® *,1,XLEN,0.0,0.0,XDELT,XDTIC) 
YDELT=1.0/YLEN*RO 
CALL AXIS2(0.0,0.0," *,1,YLEN,90.0,0.0, YDELT, YDTIC) 
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HT=0.15 

VX=-0.8 

V¥=(YLEN/2.0)-0.5*AT 

CALL SYMBOL({VX,VY,HT,*R®,0.0,1) 

CALL AXIS2(XLEN,0.0,* ',-1,YLEN,90.0,0.0,¥ DELT, YDTIC) 
RX (NZ+1) =0.0 

RX (NZ+2) =1.0/YLEN 


—s=——= DEFINE Z — VECTOR. 


XZ=1.0/NZ 
Z(1)=0.5¥*XZ 
DO 6 I=2,NZ 
6 2 (1) =Z (1-1) + XZ 
Z(NZ+1) =0.6 
Z (NZ+2)=1.0/XLEN 
DO 7 I=1,NS 
DO 8 J=1,NZ 
8 RX (J)=RX1(I,J) 
7 CALL LINE (Z,8X,NZ,1,0,1) 
NCHAR=16 
VY=-0.8 
VX=(XLEN/2.0)-0.5*NCHAR*HT 
CALL SYMBOL(VX,VY,HT,* SHELL ate het E 0,NCHAR) 
CALL ORG (SIZE, SIZE) 
RETURN 
END 
SUBROUTINE CPLT3D(A,N,M,K,DIST ,YAW,PITCH,SIZE,KODE,MGN,SCAL) 
DRAW A PERSPECTIVE VIEW OF A CONTOURED SURFACE, 


THIS SET OF SUBROUTINES (6 OF THEM), HAVING THE NAMES: 
CPLT3D, AUX060, AUX061, AUX062, AUX063, AND AUX064, WERE GIVEN 
TO STANFORD BY HOWARD JESPERSON OF IOWA STATE UNIVERSITY. 


THEY HAVE BEEN EXTENSIVELY MODIFIED BECAUSE: 
THE NAMES OF OUR PLOTTING SUBROUTINES ARE DIFYERENT. 
THE METHOD OF SCALING HAS BEEN CHANGED. 
SOME NEW FEATURES HAVE BEEN ADDED. 
SOME OLD FEATURES HAVE BEEN MADE OPTIONAL. 


IN SPITc OF THE AMOUNT OF MODIFICATION, THE ALGORITHM USED TO 
DO THE PROJECTION, AND TO DETERMINE THE VISIBILITY OF THE POINTS 
REFLECTS THE WORK DONE AT IOWA. 


MODIFIED FOR US¢e AT STANFORD BY: ROBERT J. BEEBE, CAMPUS FACILITY, 
STANFORD UNIVERSITY. 


DATE OF LAST REVISION: MAY 1, 1969 


A IS THE 2-DIMENSTIONED ARRAY CONTAINING THE 
FUNCTION VALUES. 


WARNING... THE CONTENTS OF THIS ARRAY ARE TRANSFORMED INSIDE THESE 
ROUTINES (SOME PEOPLE WOULD USE THE TERM "DESTROYED"). 


N IS THE NUMBER OP ROWS IN THE ARRAY A. 
M IS THE NUMBER OF COLUMNS IN THE ARRAY A. 
K IS A CODE THAT TELLS WHETHER TO DRAW THE GRID LINES: 


: ALONG THE N-DIMENSION ONLY. 
: ALONG THE M-DIMENSION ONLY. 
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K=3: ALONG BOTH DINENSIONS. 


$DIST$ TELLS HOW FAR AWAY THE SURFACE IS FROM YOUR EYE... 

THE UNIT OF MEASURMENT FOR THIS DIMENSION IS THE 
DIAGONAL OF A CUBE THAT ENCLOSES THE SURFACE. 
THIS DOES NOT CHANGE THE SIZE OF THE PICTURE, BUT ONLY 
THE DISTORTION. 

SDIST$ >6 USUALLY WON'T SHOW ANY DISTORTION DUE TO 

PARALAX. 
S$DISTS <1 MAY CAUSE UNPREDICTABLE SCALING ERRORS, 


YAW (IN DEGREES) SHOWS HOW THE OBJECT IS TURNED AWAY FROM 

THE VIEWER. 
POSITIVE YAW WILL TEND TO BRING THE RIGHT EDGE INTO VIEW. 
ZERO YAW SHOWS THE SURFACE WITH A(1,1) AT THE LEFT FRONT CORNER, 
A(1,M) AT THE LEFT REAR CORNER, AND A({N,1) AT THE RIGHT FRONT. 


PITCH (IN DEGREES) SHOWS HOW THE SURFACE IS LOWERED OB RAISED AT THE 
FRONT EDGE. 
POSITIVE PITCH TENDS TO EXPOSE THE UPPER SURFACE. 
IF THE MAGNITUDE OF PITCH EXCEEDS 90 DEGREES, FUNNY THINGS 
HAPPEN TO THE ORIENTATION OF THE PICTURE. 


SIZE {IN INCHES) TELLS HOW LARGE TO MAKE THE PROJECTION OF THE "CUBE" 
THAT ENCLOSES THE SURFACE. 

THIS "CUBE" THAT WE HAVE BEEN TALKING ABOUT HAS THE FOLLOWING 

DIMENSIONS: N,M,MAX(N,M). THE FUNCTION VALUES ARE SCALD TO FIT 

INSIDE THIS CUBE BEFORE ANY ROTATION IS DONE. 

APTER ROTATION, THE CUBE IS SCALD 10 FIT INSIDE 

THE SQUARE PKOJECTION PLANE (SIZE BY SIZE). BOTH 

HORIZONTAL, AND VERTICAL SCAL FACTORS ARE COMPUTED, 

AND BOTH ARE SET EQUAL TO THE SMALLER OF THE TWO. 

THIS MEANS THAT, ALTHOUGH THE PROJECTION MAY NOT ALWAYS 

APPEAR TO BE THE SAME SIZE, IT WILL ALWAYS HAVE THE 

SAME SHAPE. 


KODE TELLS WHETHER TO DRAW THE “HIDDEN” LINES: 
KODE=0: ASSUME THE SURFACE IS OPAQUE, SO DON'T DRAW THE 
“HIDDEN LINES. 
KODE=1: ASSUME THE SURFACE IS TRANSPARENT, SO ALL THE LINES 
ARE PLOTTED. 


MGN TELLS WHETHER TO DRAW THE OUTLINE OF THE CUBE TO HELP 
ORIENT THE VIEWER. 

MGN=0:3 DO NOT DRAW THE OUTLINE OF THE CUBE AT ALL. 

MGN=1: DRAW THE OUTLINE OF THE CUBE, BUT PUT IT IN ITS OWN 
TYO-INCH FRAME JUST TO THE LEFT OF THe SURFACE PLOT. 
DO NOT DRAW THIS CUBE FULL SIZE, BUT MAKE IT ABOUT 
TWO INCHES ACROSS. 

MGN=2: DRAW THE OUTLINE OF THE CUBE SUPERIMPOSED ON THE 
SURFACE PLOT. CPLT3D WILL NOT HIDE ANY OF THE EDGES 
OF THE CUBE, REGARDLESS OF WHETHER OR NOT ANY OF THE 
LINES IN THE SURFACE PLOT ARE HIDDEN. 

MGN=33 DRAW ONLY THE THREE EDGES OF THE CUBE THAT MEET AT THE 
ORIGIN, SUPERIMPOSED ON THE SURFACE PLOT. 


SCAL TELLS THE ROUTINES HOW TALL THEY SHOULD MAKE THE SURFACE, 
RELATIVE TO THE HEIGHT OF THE CUBE, 
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SCAL=0.3 


SCAL=1.3 


SCAL=4.: 


WARNING. ow 


amaNANNNNANANNNANAANANANANAANANANARAAARAAAnCANNAANRANNANnAAN 


DO NOT SCAL THE DATA AT ALL, BUT TRUST THE USER THAT 
THE DATA IS NOT SO HIGH THAT IT RUNS OFF THE PAPER. 


SCAL THE DATA SO THE TOP OF THE DATA JUST TOUCHES 
THE STOPTORUVTIHE CUBE. 


SCAL THE DATA SO THE TOP OF THE SURFACE IS 
THREE TENTHS AS HIGH AS THE CUBE. 


SCAL THE DATA SO THE TOP OF THE SURFACE IS 
POUR TIMES AS HIGH AS THE CUKUE. (DANGEROUS) 


IT IS VERY EXPENSIVE TO DRAW OPAQUE SURFACES, BECAUSE 
THE PROGRAM HAS TO DETERMINE THE VISIBILITY OF EVERY 
POINT. THE COMPUTER TIME DOUBLES OR TRIPLES, DEPENDING 
ON HOW MANY LINE SEGNENTS ARE PARTIALLY VISIBLE. 


THIS IS NOT A STAND-ALONE PACKAGE, BUT IT IS INTENDED 
THAT THIS SUBROUTINE (S) WILL BE JSED ALONG WITH OTHER 
SUBROUTINES PROM THE CALCOMP PLOTTING PACKAGE. 

THE OUTPUT ROUTINES MUST BE INITIALIZED BEFORE USING 
THIS PACKAGE. SEE THE WRITEUP FOR PROGRAM NUMBER C023. 


DO NOT USE SUBROUTINES, OR NAMED COMMON, WITH ANY 
OF THE FOLLOWING NAMES: 
CPLT3D, AUX060, AUX061, AUX062, AUX064 
{THESE ARE SUBROUTINES IN THE CPLT3D PACKAGE) 
--0 R-- 
com024, COM025 
(THESE ARE FOR NAMED COMMON USED BY THE CPLT3D 
PACKAGE). 


DO NOT FORGET, THE CONTENTS OF THE ARRAY A GET CLOBBERED. 


SUBROUTINE CPLT3D(A,N,M,K,DIST,YAW,PITCH,SIZC,KODE,MGN,SCAL 
1,NIR,NIQ,NIL,RO,X0,/MESS/, NCHAR) 


COMMON 


COMMON (/COMOZS/SL ¢ SM aye SN 8 #GXo.4 CY’, CZ, OX, OY » QZ, $D 


/COMO24/ ANGA , ANGB , HV , D, SH,SV 


DIMENSION H{ 10 ) 4 VC 10 ) % (X02), ¥(2). Z(2);, 4P( 8), 
$ A (N,M),DZ (4) 


CEKERK EEREKKES 


5 


$DIST$=DIST 
ANGA = (YAW+270.) * .0174532 
ANGB = PITCH * .0174532 


HV = SIZ 
C DIRECTION C 
BL = -C 


E 
OMPONENTS TO THE EYE. 
OS( ANGA ) * COS( ANGB ) 


= -SIN( ANGA ) * COS( ANGB ) 
$N = -SIN ( ANGB ) 


DP)((( ABS. (NSN? Jp MVNE.PLPOLY 94, 8IGO, trOR.40 
WRITE( 6 7 207) 


20 FORMAT ( 
2K  STRAL 


10 CONTINU 
$D = 1.0 

x (1) 

X (2) 
¥(1) 

¥ (2) 


weuwuu 


May ZOX ge 20 CIM) a 0" YOUNABRE ATTEMPTING TO LOO 


GHT DOWN ( OR UP) AT THE SURFACE ‘ ) 


GO TO 2150 


E 
J SQRT{ 1.0 — $N ** 2 ) 
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T=MINO (M,N) 
C FIND THE DIAGONAL OF THE "CUBE". 
D=5S5 ** 2 + WN **® 2 + QT **® 2 
D = SOQRT (D) 
SCL = $DIST$ * D 
C COORDINATES OF YOUR EYE. 


CX = -$L * SCL 
CY = =Sh)* SCL 
CZ = -$N * SCL 


C COORDINATES OF THE PROJECTION PLANE. 


OX = CX + D * $L 
Qy = cY + D * $m 
QZ = Ce + D * $N 
2060 CALL AUX060 { A, Ny, M, Z ,KODE) 
€ 
DZ (1) = 21) 
DZ (2) = 62-42) 
vuQg = NIQ 
CALL SCALE (D2Z,VUQ,2,1) 
Z(t) = 0243) 
2(2) = VUQ*DZ(4) *# 2(1) 
C 


RANGE= (2{2)-2(1)) 
$=1. 
IF( SCAL .NE. 0 ) $S=T/RANGE*SCAL 
C SCAL THE SURFACE TO MAKE A "CUBE". 
DO 30 Tas 1 
DO 30 J = M 
A(I, Jd Ck Cites PONS 2G 1 ee is 
30 CONTINUE 
QMIN=Z (1) 
QMAX=Z (2) 
Zi ty c= 020 
Zi2\ae T 
2080 CALL AUX061 CAG YG ek Pace Hove KODE} 
DOet24130"E = nt0,7 18 
H( TER) CSc Q(X (Ep = OX set SN ee (eek ba Os) * SL) * SD 
Vesta = eo¥ Cl eas OZ wes $D 
2130 CONTINUE 
2100 CALL AUX060 (H, 8, 1, H(9) ,KODE) 
2120 CALL AUX060 ( V, 8, 1, V(9) ,KODE) 
IF({ MGN .EQ. 0) GO TO 2140 
S=HY 
IF(MGN »EQ. 1) S=1.5 


yr2 « 


1 
) 


SH = S/ (H{10)-H(9) ) 

SV = S/ (¥(10)-V(9) ) 

SH = SIGN( AMIN1(SH,SV),SH ) 
SV = SIGN(SH,SY) 


IF(MGNJ2EQ.1) CALL PLOT (0.0,2.0,-3) 
CALL AXDR({H,V,SH,SV,MESS,NCHAR ,YAW,NIR,NIQ,NIL, RO, X0,QMIN,QMAX) 
2139 IP(MGN .NE. 1) GO TO 2140 
CALL PLOT (AINT((H(10)-H(9)) *SH*#2.),-2.05,-3) 
2780 CALLVAUX063" ) (.XyOY,e Ae Ng MB 6 Ho V 4» K g KODE) 
2150 CONTINUE 
RETURN 
END 


SUBROUTINE AUX060 ( A, N, M, Z , KODE) 
DIMENSION Z2(1), A(N, 4M) 
C FIND THE MAX, AND MIN OF A. 


b i 


ve ” ee a 7 } 


ee hs ye. 


ee ht ee 
he aie 


Wn’ wf f af 


aa 


ANA AAN 


1050 2(1) 
1060 z(2) 


AG Veo Ab) 
Z (1) 


“ou 


1080 po 1190 J=1, 
1100 Do, 1180 I = 1, 


2 (1) 
Z (2) 


AMINI( Z{ 
AMAX1( 2(2 


1180 CONTINUE 
1190 CONTINUE 
1230 RETURN 
E 
SUBROUTINE AUX061 


M 

N 

1), A{I,J)) 
), A(I,J)) 


ND 
( X, i, 


Ze XP g H 8 Vv 7 KODE) 


FIND THE CORNERS OF THE ROTATED CUBE. 


DIMENSION X(1),¥(1),2(1),H(1),V¥(1) ,XP(1) 


050 L=0 

O70 DO 180 1 =, 2 

090° DO, 170 3 = 1, 2 

110 DO 160 K = 1, 

130 a | 

140 CALL AUX062 { 
1 H(L) , 

160 CONTINUE 


170 CONTINUE 
180 CONTINUE 
190 RETURN 
END 
SUBROUTINE AUX062 


X(I), Y¥(J), Z2(K), XP( L), 
V( L ),KODE ) 


( X, Y, 


Ze, XP , YP , ZP ,KODE) 


FIND THE LOCATION OF A POINT IN THE ROTATED CUBE. 
ANGA , ANGB , HV , D, SH,SV 


COMMON /COMO024/ 
COMMCN /CON025/$ 


~s 
© 
woud u 


RETU 


AL Bel 


RN 


SU gwekp GGl) ¢ CL ig Oks OF 


END 


SUBROUTINE AUX063 (X,Y,A,N,M,H,V,K ,KODE) 


DRAW THE FIGURE. 
COMMON /CON024/ 
COMMON /COM025/$ 


ANGA , ANGB , HV , D, SH,SY 


JE kel 


SNM CX ioe CY ig Savy 1 OX15) OY 


DIMENSION X(1)¢¥(1), H(1),V(1) ,A (NJ&) 


INTEGER UP , DOWN 
INTEGER Pl , PO 


END = 1.0 / 
CAN USE 1 / 32 OR 


» PEN , 


16.90 
1/7 64 


e Q 


FOR FINER INTERPOLATION 


o QZ, 


e QZ, 


$D 


D/( (X- CX) *$L + ( Y-CY) * $M + (Z = CZ) *$H) 
Chit SK n* (CX = CYA) 
CY + $K * ( ¥ = CY) 
CZ “Skit te Uae) 


$D 
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080 


100 


3 
2 
HV 7. (nee ret 


SIGN(AMIN1(SH, 
SIGN (SH,SYV) 

M 

N 


n 
t28) 
Te 


ou 


NN 


0 
HV. 7 (887 10 
S 


) 
) 
VY). 


Tes(PK = 1) YOO ,. 120, 


IF (K -3) 


1110, 120, 


- H 
- Vv 
SH) 


100 


1110 


DRAW LINES ALONG THE Y-AXIS 


120 


140 


160 


510 
520 
530 


540 


550 


560 


565 


570 


580 
590 


CONTINUE 


DO 1030 L = 1, NN 


Pe £4 Lp 
kI=L 
CALL AUXO64 (A ,XI 
PEN = UP 
IF (P) 510, 
CONTINUE 


eY¥JI , N 


IF. (Q) 540 , 550 


CONTINUE 


IF (Q) 
CONTINUE 


610 , 1020 


TF GO } S40 550 


CONTINUE 

PEN = DON 
GO TO 170 
CONTINUE 
Trey 1 

DI = DD 

TO = L - LD 
fT = TO + DI 

P1 = Q 
ELM CIGARS (LDLY) 


2EQ. 1 


DI = DI * 0.5 
LE Po Yes e0F" 70" 3 
TO=T 
P1 = PO 
T= T- DI 
GO TO 560 
f="T 46 DI 
GO TO 560 
CONTINUE 
T = TO 


ret pie Py 170 


CONTINUE 
CONTINUE 


ZP = A(L-LD, J) +(T-L+#LD) * (A (L,J)-A(L-LD,J)) /LD 


eLT. 
CALL AUX064 (A,T 


gv 


e 


520 


a 


a 


( 
( 


9) 
9) 


¢ 330 


540 


» 610 


540 


) 
) 


GO TO 170 


END 
YJ , 


170 


q 


) 
N , 


GO TO 565 


589 


GO TO 570 
M , PO ,KODE) 


CALL AUX062(T, YJ,ZP,XP,HH, VV ,KODE) 
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HH = ( ( XP-QX)*SM- (HH - QY )*$L) * $D 
2) WV -''02) * $0 
HH = ( HH ~ H(9) ) * SH 

= (VW- V(9) ) * S¥ 

CALL PLOT ( HH , VV , PEN ) 
600 PEN = 5 — PEN 
GO TO 170 

610 CONTINUE 


P1=Q 
620 IF ( ABS( DI) .LT.j END ) GO TO 630 
CALED AUXO64 “(CA ZT y YU | 84 NM BO, KODE) 
DI = DI * 0.5 
PPA POY .EOs 4 Oe ) GO TO 625 


TO = T 
P1 = PO 
T= T + DI 
GO TO 620 
626 7 tT = or Dz 
GO TO 620 
630 CONTINUE 
T = TO 
IF ( P1*Q) 600 , 600 , 590 
170 CREL AUXOO2. (0X0; You Ade byes ) eo kP 5 HE ZW) yKODS) 
VV = (VV -— QZ) * $D 
HH = { ( XP-QX)*SM- (HH - QY )*$L) * $D 
190 HH = ( HH - H(9) ) * SH 
200 v¥ = ( WV - V(9) ) * SV 


CALL PLOT “(* HH; VV", .PEN ) 
1020 Q=P 
1030 CONTINUE 


L= L+ LD 
LD = -LD 
DD =-DD 


1060 CONTINUE 


1090 IF ( K - 3 ) 2060, 1110 , 2060 


DRAW LINES ALONG THE X-AXIS. 
1110 CONTINUE 


L’ =:0 
LD = 1 
DD = 90.5 * LD 
1140 bo 2040 T=1,N 
KL =WE 
= 0 
1160 po 2020 J = 1, MA 
L = L + LD 
YJ = L 
CALL AUX064 (A ,XI ,Y¥J , N, My, P ,KODE) 
PEN = UP 


TEP ee yM1S 10%). 1520 5° 4530 
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1510 CONTINUE 


1520 
1530 


1540 


1550 


1560 


1565 


1570 


1580 
1590 


1600 


1610 


1620 


1625 


1630 


1170 


IF (QQ) 1540 , 1550 , 1540 
CONTINUE 
Treo y* “1610'", *20T0", ‘Te70 
CONTINUE 
IF (Q) 15480 , 1550 , 1540 
CONTINUE 
PEN = DOWN 
GO TO 1170 
CONTINUE 
Peed, © EO, 4 p. $GO TO) 11:70 
DI = DD 
TO =U = LD 
T = T0 + DI 
Pt = 0 
Pert PABS (Dial, bla. END. ), GO TO 1570 
CALL AU NOU UC Aa Ne or, etl a8 4; “BO°', KODE) 
DI = DI * 0.5 
[Pt Po * SEO. Oy") "GO FO. 1565 
T0 = T 
P1 = PO 
T=  - Dt 
GO TO 1560 
T= + DI 
GO TO 1560 
CONTINUE 
Tf = TO 
TP (ert eo Pays 1170 ttn. (1 OuO 
CONTINUE 
CONTINUE 
ZP=A(I,L-LD) + (T-L*#LD) * (A(I,L) - A{I,L-LD)) /LD 
CALL AUX062 ( XI P'S Azer xP LA VV, KODE) 
HH = ( ( XP-QX)*3M- (HH - QY )*3L) * $D 
VV Ss CVV = "OZ jo 8 $D 
HH = ( HH - H(9) ) * SH 
vV = ( VV - V(9) ) * SV 
CALL PLOT ( HH , VV , PEN ) 
PEN = 5 — PEN 
GO To 1170 
CONTINUE 
PEN = DOWN 
DI = DD 
TO = L - LD 
T = TO + DI 
P1 = Q 
Tre ADS O01.) <»bT. | CERD) (GO. TO11630 
CALLORUXOGS. (Ap XDNG PEON. GMa POT KODE} 
DI = DI * 0.5 - 
Tee PO "220. 0. } | (GO TO (1625 
To = 7 
P1 = PO 
T=T + DI 
GO TO 1620 
T=T- DI 
GO TO 1620 
CONTINUE 
T = TO 
IF ( P1 * Q) 1600 , 1600 , 1590 
CALL AULOG2).( XI; aYIs0AC Tek) pukPc> BW {VY , KODE) 
HH = ( { XP-QX)*$M- (HH - QY )*35L) * $D 
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{ VV - QZ) * $D 
HH = { HH - H(9) ) * SH 
= ( VV - V(9) ) * SV 
CALL) PLOT “{ HH, V¥ , PEW) 
Q= P 
CONTINUE 


L= L +¢ LD 

LDP =) > 0D 
DD =-DD 

CONTINUE 


CONTINUE 
RETURN 


END 
SUBROUTINE AUX064 (Z, XI, YJy M, Ny P, KODE) 


C SEE IF A POINT IS VISIBLE. 


10 


COMMON /COMO024/ ANGA , ANGB , HV , D, SH,SV 

COMMON /COMO2S/$L , $M , $N » CX , CY « CZ, QX , QY « QZ, SD 
INTEGER CUM , CNT , P 

REAL & , de, 1b, JJ 

DIMENSION Z (H,N) 
IF( KODE «EQ. 1) GO TO 78 
= XI 
= YJ 
Z2B=2 (IR, JC ) * 

( 


IF XI « SE0aw LR » Ju GOTO 42 
Ubi at (UR. OC uy An eK Lie LR eee (IR, © 8G IC) ZU TR) JC) ) 
GO TO 4 
That fd EO Ge) GO TO 4 
ZB = Z{IR , JC) + (Y¥J-JC)*(Z(IR,JC#1) -— 2(IR,JC )) 
CONTINUE 
XEND = 0.0 
DX = 0.0 
/YMULT = 0.0 
ZMULT = 0.0 


LE (XE 2 EQ. CY i Gor TA 10 
YMULT =A(Y dS te CY a 7 (= CXe) 
ZMULDTA= af 2B — CZ) 7 (xt = Cx) 
DX = 1.0 
XEND = M + 1 
TFG Xi 2 LT. ~CX)  pGOeTO 110 
DX = -1.0 
XEND = 0.0 
CONTINUE 
YEND = U.0 
DY = 0.0 
XMULT = 0.0 
IF (YS «EQ. CY ) GO TO 20 
YMULTRaoea( XI - CX ) /. (1% --CY:) 
IF ( ZMULT .EQ. 0.0.) 2ZMULT=(ZBe- CZ) / ( YU — CY ) 
DY = 1.0 
YEND = N # 1 
Tha tele «LT. CY) GO TO "20 
DY = -1.0 
YEND = 0.0 


20 CONTINUE 


CUM = 9 


(SHORT A oh CUE 0 6B) BOnEVA susanae pan 
; ETS Te THIF & 9 ‘ae 
Va." <6. PR 6 BOR | SOBA NERGAOD. HORKOO - 
Sf ..86 « Sg SDs a2 ‘ a) . %2 5 ne 4 mie ‘ JEN 2LOAOD, WORAOD bo ‘ 
a, T2> . BUD Fie tA ae 
leh 4 m3 7 th +. a ase 
; Cha, KOLZHaRIG i“ 
at of of 17 vos. a PAD as 
7: ma 


er 
a : {= 9G, g 
i ot , OL © OF e,. 
S$ Oe OF ; 8% shh, (23. F982 lO 
(ie, Baa + (ee Cee { Be Ek 7 8 4 Oh. BEE ORE oe) 
| * owe rh pet gh: 


» OF. 0% (% os. Lr yp ane 
(x SU With - ee -Tve Semel ty * OL . ATLE = Oe 
SUdI TOD 


4 i AY * aay? 


t 
at ceed + eae a 
et a a's Sek, as an 


om 
ey es as, isp Me By 


BS a tale = Tamas SiOt 
W% sles ae 1s Pape. Poe 


30 


4Q 


45 


70 


75 


78 


80 


B84 


36 


90 


- DY * ( YB-J ) * (Z( IRk,JDY ) 


— DX * (xXxB- 1) * (2(IDX,JC) 


P=0 
XB = XI 
YB.= YJ 
CONTINUE 
II = AINT( XB ) 
JJ = AINT( YB ) 
XSTEP = DX 
YSTEP = DY 
Pre tak uees £0. else anGO. TO 40 
Ths (MD ieee Lic wO.0 se XSTER = 
GO TO 45 
Ter (a Sibe oe £0. ie Jd. ae GO. T0185 
TF (po Die ells 40.04, YSTEP: = 
CONTINUE 
I = lI + XSTEP 
J = JJ + YSTEP 
IF {.I -.£0.., XEND,)...GO TO 80 
TPL Us Janene BYEND ) lnGOs 10.80 
XB. = CX, + XNULT. *, (9 = CY) 
YB = CY + YMULT * ( I - CX ) 
IE: (eDke oo bie wOn0. je) GOKTO 55 
If, (eX Be cite win a, GO. TO 60 
Levan £ 
GO TO 65 
Dratels cote | injte GOTO USO 
15.2, J 
CONTINUE 
ZB = CZ + ZMULT * ( XB — CX ) 
IR =I 
ieee 
Lea 8 sahouk dala Go £0.70 
IDX = I - DX 
Lo: = Zt hee OL) 
GO TO 75 
JDY = J —- DY 
TSmeeIt TR dC) 
CONTINUE 
SGN = 1 
Lfesliuwiea sli. Woy) SGN a 7=1 
CUM = CUM + SGN 
CNT = CNT + 1 
Liste LABSiLG CUM, Je) fcikO-m CNT 
GO TO 90 
P=1 
GO TO 95 
CONTINUE 
p=1 
TE oC CUM, )- 04%, 510 Oyen o0 
P=-1 
GO TO 90 
CONTINUE 
a 8A Cir A: Silas By ito Seat 
p= -1 
CONTINUE 
RETURN 
END 


SUBROUTINE AXDR(H,V,SH,SV,/NSESS/,NCHAR ,YAW,NIR, NIQ,NIL,&0,X0 


1,QHIN, QMAX) 
DIMENSION H(10),V(10) ,X(8) ,¥ (8) 


0.0 


0.0 


) 


GO TO 90 


- Z2(18,JC)) 


- Z( IB,JC) ) 


------- PUT THE COORDINATES OF EACH OF THE 8 CUBE CORNERS IW X&¥. 
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1,8 
(H (I) -H (9)) *S8 
Y(I) = (V(I)-V(9)) *SV 
1 CONTINUE 
CALL)PLOT (X (2)\,¥ (2), 3) 
CALL PLOT (X (4) 4¥ (4) 2) 
CALL. PLOTAX(3), ¥ (3) 5 2) 
ChLLigPLOTH X (7).,¥.(7) o2) 
CALL PLOT (X(8) ,¥ (8), 2) 
CALL PLOT (X(4) ,¥ (4), 2) 
CALL PLOT(X(8) ,¥ (8), 3) 
CALL PLOT (X(6) ,¥ (6), 2) 
CALL, PLOT (EY (2) -¥ (2) ,.2) 
C------- DRAW THE RADIUS AXIS. 
CALL AXPL(1,5,X,Y,0.0,RO,*RADIUS',-6,NIR, 120) 
IP(YAW.GT.180.0) GO TO 2 
C------- DRAW THE APPROPRIATE AXIS POR O.LT.YAW.LT.45. 
CALL AXPL(5,7,X,Y¥,0.0,X0,°Z',-1, NIL, 1.0) 
CALL AXPL(1,2,X,¥,OMIN,QMAX, NESS, NCHAR,NIQ,-1.0) 
C------- DRAW LINES TO FINISH BOX. 
CALL PLOT (X(5) ,¥ (5) ,3) 
CALL PLOT (X(6) ,¥ (6), 2) 
CALL PLOT({X(1) ,¥(1) ,3) 
CALL PLOT{X(3) ,¥ (3), 2) 


DO 1 I= 


RETURN 
2 CONTINUE 
C------—- DRAW THE APPROPRIATE AXIS FOR 325.LT.YAW.LT. 360. 
CALL AXPL(3,1,X,Y,X0,0.0,'Z',-1, NIL, 1.0) 
NCH = -NCHAR 
CALL AXPL(5,6,X,Y,QMIN,QMAX,MESS,NCH,NIQ,-1.0) 
Ce DRAW LINES TO PINISH BOX. 


CALL PLOT(X(5) ,¥ (5), 3) 
CALL PLOT (X(7) ,¥ (7) ,2) 
CREL PLOT GL (1), Het) 
CALL PLOT (X(2) ,¥(2),2) 
RETURN 

END 


SUBROUTINE AXPL(I,J,X,Y,QMIN,QMAX, /MESS/, NCHAR,NIQ,DTS) 


DIMENSION X(8) ,¥ (8) 

DX = X(J)-X (I) 

DY = Y(J)-Y(I) 

AXLEN = SQRT(DX**2 +#DY**2) 


ANGLE = 57.296*ATAN (DY/DX) 
AXMIN = QUIN 
: AXDELT = (QMAX-QMIN) /AXLEN 
DTIC = AXLEN/NIQ*DTS 
é CALL AX2EP {DTIC} 2,150, D,DsD,0; DDN DED) 
CALL AXIS2(X(I),¥(I) ,MESS, NCHAR, AXLEN, ANGLE, AXMIN,AXDELT, DTIC) 
RETURN 
END 


SUBROUTINE FILT3D(Q,NS,NX) 


CRE RE EKER OK EE SKE KEE EEK EEK EERE ER EKER E EKEE EKER REE KKK ARES EEE SEEK EEK EK 
c * FILTER ANY JITTER FROM OUTPUT OF 2-D MHD ROUTINE. 


Cc * RICHARD D. MILROY 78-02-14 


CERKEE AREER EE EERE FE RERE EKER EK EEE EE EE EERE EERE REE E EKER KEE EEEE EE EER ER 


REAL Q (30,60) 
INTEGER 5S, 
C------- FILTER IN X-DIRECTION 
NXM7 = NX - 1 
DO 1 S=1,NS 
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Q2 = Q(S,1) 
DO X=2,NXN1 
Q1 Q(S,X) 
Q(S,X) = 0.5*Q(S,X) * 0. 25*#(Q24Q(S,X+1)) 
Q2 = QI 
1 CONTINUE 
Cr------ FILTER IN S-DIRECTION. 
NSM1 = NS - 1 
DO 2 X=1,NX 
Q2 = Q(1,X) 
DO 2 S=2,NSN1 
Qt = Q(S,X) 
Q(S-X) = 0.5%Q(S,X) # 0.25% (Q2+Q (S41,X)) 
v2 = Qi 
2 CONTINUE 
RETURN 
END 
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CHEEK EKEKRERHEEKEKEEK ER EEKEKEREREKE EK EERE EERE EEE KEE EKER EKREERKEKKEKECEK KEKE KE 
fe * DRAW SOME GRAPHS FOR 2-D SIMULATION. * 
Cc * RICHARD D. MILROY 78-02-09 * 
C¥EKEESEREKERE EERE EKEEKREEEKESC EEE EERE EEK SEEKER EKER EKKE KEKE EEE ER ES EEREK 
REAL A(30,60) »TZ (30,60) ,TL (30,60) ,N(30,60) ,PHI (31) ,¥(30,60) 

,VPS(30,60) ,P (120) ,R(30) 

,NT (500), TET (500) , TIT (500) , TT (500) 

,N1(500),TE1(500) ,T11(500) ,X (500) 

,WMAX,LO, NO, VPLT (100, 10) 
INTEGER XINT,RINT, TINT 
LOGICAL RDN 


FWwnhn= 


XLEW = 4.0 
YLEN = 5.0 
TIN = 5.E-7 
TINGHe, 5, B= 7 
TFIN = 30.E-6 
TIMO = 1.5E-6 
NMAX = 5.E+17 
NINT = 5 

XINT = 5 

RINT = 3 

TINT = 5 

x0 = 50.0 


READ(3) NTAPE,NTIME,T,NS,NZ,LO,RO, NO,TO,DT,NBOUND,XLAS 
1,XMIN, RDN, RM : 
BACKSPACE 3 

VO = SQRT(9.58E+ 11*TO) /SORT (RM) 

TMO = LO/SQRT(9.58E+11*T0) *SQRT (RM) 


DX = LO/(NZ-NBOUND) 

KX = XO/DX + 0.5 

KX = NZ+1-KX 

IT = 0 

KK = 0 

T = -1.0E+50 

CALL PLOTS 

CALL ORG1(XLEN, YLEN) 
2 KK =KK+1 


IF(I.GT.~TFIN) GO TO 98 

TD = TIN + (KK-1)*TINC 
1 TOLDes of 

READ (3,END=99) NTAPE,NTIME,T,NS,NZ,LO,RO,NO,TO,DT, NBOUND 

T = T*TMO 

IF(T.LT.1.E-30) T=1, 0E-30 

. IF(T.GT.TD) GO TO 3 

READ (3) A 

READ(3) TE 

READ(3) TI 

READ (3) N 

READ (3) PHI 

READ(3) V 

READ (3) P 

READ(3) VPS 

RZAD(3) W 

IT = IT+1 

NT(IT) = N(1,KX) *NO 

TET(IT) = TE(1,KX) *T0 

TIT(IT) = TI(1,KX) *T0 

T7(IT) = T 

GO TO 1 
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CONTINUE 


IF (ABS (TD-T) -<GT.ABS(TD-TOLD) ) GO TO 4 


ReZAD(3) A 

READ(3) TE 

READ(3) TI 

READ(3) N 

READ(3) PHI 

READ(3) V 

READ (3) P 

READ(3) VPS 

READ (3) W 

IT = IT+1 

NT (IT) = N(1,KX) *NO 
TET(IT) = TE(1,KX) *TO 
TIT(IT) = TI(1,KX) *T0 
TT (IT) ‘= 

GO TO 5 

BACKSPACE 3 

T = TOLD 

GO TO 5 

T?IN = 0.0 

CONTINUE 


-- PLOT CURRENT TIME IN SECONDS. 


TIME=T 

NEXP=ALOG10 (TIME) 
NEXP=NEXP-1 

EXP=NEXP 
BASE=TIME/ (10. 0*#N EXP) 
HT=(YLEN-2.0)/15.0 


CALL SYMBOL(1.0,1.0,HT, 'TIME= 


VX=1,0+5.0¥*HT 


CALL NUMBER(VX,1-0,HT, BASE,0.0,2) 


VX=1.0¢14.0*HT 
VY=1.0+0.5*HT 
HT=0.5¥*HT 


CALL NUMBER(VX,VY,HT,EXP,0.0,-1) 


CALL ORG (XLEN, YLEN) 


-- DEFINE VECTORS FOR PLOTTING RADIAL PLOTS. 


AT=0.0 

AT1=0.0 

DO 10 I=1,NS 
AT = AT+#+A (I, KX) 


R(I) = SQRT{0.5* (AT+AT}) ) 


ATi = at 

DO 6 I=1,NS 

X(I) = R(I)*RO 

N1(1) = N(I, KX) ®NO 
TE1(I) = TE(I,KX) *TO 
TIV(I) = TI(I,KX) *TO 


CALL XPLOT(NS,X,N1,TE1,TI1,XLEN,YLEN, NINT, NHAX, RINT,*R*,-1,B0) 
-- DEFINE VECTORS FOR PLOTTING AXIAL PLOTS. 


DO 7 I=NBOUND,NZ 
J=NZ41-1 

X(J) = DX* (J-1) 

Ni(J) = N(i,I) *NO 

VPLT (J, KK) = V(1,1)*VO 
TE1(J) = TE(1,1) *TO 
TI1(J) = TI(1,1) *TO 


CALL XPLOT (NZ, X,N1,TE1,TI1,XLEN,YLEN,NINT, NMAX, XINT,'Z*,-1,1L0) 
CALL LASPLT(P,NZ,NO,TO,RO, LO, NBOUND, XLEN, YLEN, XINT,X0) 


X 10°,0.0, 14) 
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GO TO 2 
CONTINUE 


~- MAKE PLOTS AS A FUNCTION OF TIME. 


CALL XPLOT(IT,TT,NT, TET, TIT, XLEN,Y LEN, NINT, NMAX,TINT,'T! ,-1,TIMO) 

-- PLOT AXIAL VELOCITY VS X. 

CALL VPLOT(NZ,X, VPLT,XLEN, YLEN,XINT, KK, LO) 

CALL PLOT(0.0,0.0,999) 

STOP 

END 

SUBROUTINE AXDR(XLEN,YLEN, /XAX/,NTIT,XMIN,XDELT, XDT 
> TMIN,TDELT,TDT,NMIN, NDELT, NDT) 

REAL NMIN, NDELT, NDT 

CALL AXIS2(0.0,0.0,XAX,NTIT, XLEN,0.0,XMIN, XDELT, XDT) 

CALL AXIS2(0.0,0.0,'T',1,YLEN,90.0,TMIN, TDELT, TDT) 

CALL AXIS2(XLEN,0.0,'N?,-1,YLEN, 90.0, NMIN, NDELT, NDT) 

CALL PLOT(0.0, YLEN,3) 

CALL PLOT(XLEN,YLEN, 2) 

RETURN 

END 

SUBROUTINE XEPLOT(NP,X,N,TE,TI,XLEN ,YLEN, NINT, NMAX,XINT,/XAX/,NTIT 
7X0) 

REAL X (500) ,N(500) ,TE(500), OL NMIN,NDELT,NDT,SC (4) 

INTEGER XINT 

CALL PILT1D(TE,NP) 

CALL PILT1D(TI,NP) 

CALL FILT1D(N,NP) 

TMIN = 1.550 

TMAX = -1.E50 

DO 1 I=1,NP 

IF (TE(I).LT.TMIN) TMIN=TE(I) 

IP (T1(I)eLT.TMIN) TMIN=TI(I) 

IF(TE(I) .GT.TMAX) TMAX=TE(I) 

IF (TI(I).GT.TMAX) TMAX=TI (I) 

IF(N(I).GT.NMAX) N(I) = NMAX 

CONTINUE 

SC(1) = TMIN 

SC(2) = TMAX 

CALL SCALE(SC,YLEN,2,1) 

XMIN = 0.0 

X£DELT= XO/XLEN 

XDT = XLEN/XINT 

TMIN = SC(3) 


TOT = -1.0 

NMIN = 0.0 

NDELT = NMAX/YLEN 
NDT = -YLEN/NINT 
TE(NP+1) = SC(3) 
TE(NP+2) = SC(4) 
TI(NP+1) = TE(NP+1) 
TI(NP+2) =TE (NP+2) 
N(NP+1) = NMIN 
N(NP+2) = NDELT 
X(NP+1) = XMIN 
X(NP+2) = XDELT 


CALL AXDR(XLEN,YLEN,XAX,NTIT,XMIN,XDELT, XDT 
, TAIN, TDELT,TDT,NMIN,NDELT, NDT) 

CALL LINE (X,TE,NP,1,0,0) 

CALLLCINC CL Ti sel, O20) 

CALL LINE(X,N,NP,1,0,0) 
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10 


CALL ORG (XLEN, YLEN) 

RETURN 

END 

SUBROUTINE ORG1 (XLEN,YLEN) 


CALL TCLEAR{&1) 

CALL TERASE (6&1) 
F=AMIN1(30.0/XLEN, 20.0/YLEN) 
CALL PACTOR(F) 

CALL PLOT(2.0,2.0,-3) 
GO TO 10 

CALL PLOT(3.0,3.0,-3) 
X0=0.0 

Y0=0.0 

XL=XLEN 

YL=YLEN 

GO TO 10 

ENTRY ORG (XLZN,YLEN) 


CALL TCLEAR(&2) 

READ (6,601) NOTNG 
PORMAT (I5) 

CALL TERASE(62) 
READ (6,601) NOTNG 
GO TO 10 

VX=6.04+XL 

VY=6.0+YL 
Y=YO*VY+YLEN 
YL=YLEN 

Te (Y¥.GT.33.0) GO 70 3 
CALL PLOT(0.0,VY,-3) 
YO=Y0+VY¥ 

IP (XLEN.GT.XL) XL=XLEN 
GOTO" 10 

vV¥=-Y0 

CALL PLOT(VX,VY,-3) 
XL=XLEN 

XO=X0+VX 

¥0=0.0 

RETURN 

END 


SUBROUTINE LASPLT(P,NZ,NO,TO,B0,LO,NBOUND, XLEN, YLEN, XINT, XO) 


MOVE ORIGIN IN A WAY TO MINIMIZE PLOTTER PAPER WASTE. 
Ce ee FOR TEKTRONIX, RE-SCALE PLOT AND HALT UNTILL RETURN ENTERED. 


ENTER HERE FOR ALL BOT 1°ST CALL TO TUIS ROUTINE. 


CER ERR RRR RE EER RR KEE ERS ERE ERR EEE REE EERE EE EEE EEE EEE RES ER 


Cc 
fee 
Cc 


* 
* 
* 


PLOT LASER POWER VERSUS 2, 


MAY,23,1977. 


RICHARD D. MILROY 


- IN GW. 


* 
* 
* 


CERRKR KARE EK EE RERK ERE KE EERE EERE ERE EEK EE EKER EEE EEE EE ERE EEE TERE ES ERE RE 


REAL P(120),2(120) ,NO,LO,INTEN (120) 
INTEGER XINT 

BS = 0.25 

RLO = 0.0035 

M=NZ+1 

LF(NBOUND.EQ.2) M=2*NZ-2 

MP1=M+1 

MP2=M+2 

DO 2 I=1,M 

P (I) =4.92E-22*NO*TO**1,5*RO*RO*P (I) 
AX DELT=NBOUND/XLEN *LO 
DTIC=XLEN/XINT 
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CALL AXIS2(0.0,0.0,'Z',-1,XLEN,0.0,0.0,AXDELT, DTIC) 
CALL SCALE(P,YLEN,M, 1) 
YMIN = P(MP1) 
YDELT = P(MP2) 
CALL AXIS2(0.,0.,'LASER POWER (GW) °,16,YLEN,90.,YMIN, YDELT,-1.) 
DZ=1.0/(NZ-N BOUND) 
DOY ALL=aNsN 
1 Z{I)=(1-1.5) *Dz 
Z (MP1) =0.0 
Z (MP2) =NBOUND/XLEN 
CALL LINE(Z,P,M, 1,0, 1) 
CALL PLOT(0.0,YLEN,3) 
CALL PLOT(XLEN,YLEN, 2) 
C------- DEFINE AND PLOT INTENSITY. 
DO 3) I=1,8 
SIGMA = RLO + BS*ABS (X0-Z(I) *LO) 
3 INTEN(I) = P(I)/(6.283*SIGMA**2) #1.29 
CALL SCALE(INTEN, YLEN,M, 1) 
YMIN = INTEN (MP1) 
YVELT = INTEN (MP2) 
CALL AXIS2(XLEN,0.0, *INTENSITY',—-9 ,YLEN,90.,YMIN,YDELT,-1.) 
CALL LINE(Z,INTEN,M, 1,0, 1) ‘ 
CALL ORG (XLEN,YLEN) 
RETURN 
END 
SUBROUTINE FILT1D(Q,N) : 
CEE EK ERR EK EK KR EK EEE EEK KEKE KEE ER KKK KEK RE KEKE EK AREKAEKKKER EKER EERE KEE KE 
re * FILTER JITTER FROM RESULTS BEFORE PLOTTING. * 
c * RICHARD D. MILROY 78-02-14 * 
CHEK ERE EKER EEK EE ERE EK ERKKEEKRE KK KKKK AKERS KE EKERKEKEKEE KEK EKEEEKERHERERKS 
REAL Q(1) 
NM1 = N-1 
Q2 = Q(1) 
DO 1 I=2,NM1 
Q1 = Q(T) 
Q(L) = 0.5*Q(I) + 0.25% (9240 (I+1)) 
Q2 = Qi 
1 CONTINUE 
RETURN 
END 
SUBROUTINE VPLOT(N,X,VPLT,XLEN,YLEN, XINT, KK, XO) 
CHR RK EERE RK ERK EE EERE KEE ERK RE EE EK EK EEE EEE EEE EERE EEE EE EK EE EEE EE 
Cc * PLOT VELOCITY FOR SEVERAL TIMES. * 
‘€ * RICHARD D. MILROY 78-02-15 * 
CREE EER ERE EKER SE EKER ETEK EK EEE ERE EEK EK ERE KER EKER EKER EKER ERR KEE KEE EK 
REAL VPLT(100, 10),¥(100) ,SC (4) ,X (500) 
INTEGER XINT 
K = KK-1 
C------- PIND MAX. AND MIN. OF V AND SCALE. 
VMAX = -1.E50 
VMIN = 1.2550 
DO 1 J=1,K 
pO 1 I=1,N 
IF(VPLT(I,J)+LT.VMIN) VMIN 
IF(VPLT (I,J) «GT. VMAX) VMAX 
1 CONTINUE 
SC(1) = VMIN 
SC(2) = VMAX 
CALL SCALE(SC,YLEN,2,1) 
VMIN = SC{3) 


VPLT(I,J) 
VPLT (I,J) 
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VDELT = SC (4) 


XMIN = 0.0 
XDELT = X0/XLEN 
XLT = XLEN/XINT 
VDT = -1.0 


CALL AXIS2(0.0,0.0,°Z%',-1,XLEN,0.0,XHIN, XDELT, XDT) 
CALL AXIS2(0.0,0.0,'V‘,1,YLEN, 90.0 ,VMIN, VDELT, VDT) 
CALL PLOT(0.0, YLEN,3) 

CALL PLUT(XLEN,YLEN, 2) 

CALL PLOT (XLEN,0.0,2) 

DO 2 J=1,K 

DO 3 I=1,N 

¥V(I) = VPLT({I,J) 

CALL PILT1D{Y,N) 

V(Nt1) = VMIN 

V(N*2) = VDELT 

CALL LINE(X,V,N,1,0,0) 

CONTINUE 

RETURN 

END 
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C¥EEKKEKRKKRERETEREKE KEES EEEKEEKK AE KEKE KK EK EK KEKE SHER KERESE KE KEKEK ES SEEKER 
C * READ DATA FROM DISK OR TAPE AND PRINT RESULTS. * 
c * RICHARD MILROY - JUNE 16, 1977. * 
CEFKKEKEKKEKERERKK SK ERKKEEKEKRERER ERE KEK RE CESK ETEK EKRESEKKA EK EEKEKEK ERE 
REAL A(30,60), TE (30,60) ,TI (30,60),N(30,69) ,PHI (31) 
1,V (30,6) ,P (120) ,B(30) ,R(30) , PRESS (30) ,NO, LV, U (30,60) , ¥(30,60) 
INTEGER X,S,XMIN 
#RITE (6,621) 
621 FORMAT(* INPUT RECO, RECM, AND SKIP RATE?/? N N N*) 
READ(5,501) NRCO,NRCM,NSB 
501 FORMAT (3I5) 
101 READ(3,END=102) NTAPE,NTIME,T,M,NX,LO,RO,NO,TO,DT,NR,XLAS,XMIN 
READ(3) A 
READ (3) TE 
READ(3) TI 
READ(3) N 
READ(3) PHI 
READ (3) V 
READ(3) P 
READ (3) U 
READ(3) W 
IF(NTIME.NE.NRCO) GO TO 101 
NRCO=NRCC#HNSR 
IF(NTIME.GT.NRCM) GO TO 102 
WRITE(7,622) NTIMZ,T,DT,NR ! 
622 FORMAYT(*-NTIME=",14,"  TIME=",1PE9.2," DT=",E9.2,* NB=",0PI3) 
WRITE(7,623) M,NX,NTAPE,LO,R0,NO,TO 
623 FORMAT(* M=',13,* NX=",13,' NTAPE,*,13,* LO=",1PE9.2," RO=! 
71,6912," .NO=¢, 29.2," “TO=")59- 2) 
NNX=60 
NNXI=XMIN 
MM=12 
MMS=1 
MMI=1 
DO 13 X=NNXI,NNX 
DO 13 S=MMI,4M,MMS 
W(S,X) =SQRT(W(S,X) ) 
13 U(S,X) =U(S,X)/W(S, X) 
603 FORMAT(* *,1P20E10.2) 
WRITE(7,604) 
604 FORMAT('O TE?) 
DO 2 X=NNXI,NNX 
2 WRITE(7,603) (TE(S,X),S=NMI,MM,AMS) 
WRITE(7, 605) 
605 FORMAT('O ‘TI*) 
DO 3 X=NNXI,NNX 
3 WRITE(7,603) (TI(S,X) -S=MMI,MM,MMS) 
WRITE(7, 606) 
606 FORMAT('O N°) 
DO 4 X=NNXI,NNX 
4 WRITE(7,603) (N(S,X) ,S=SMI,SM,MMS) 
WRITE(7,607) 
607 FORMAT('O } V*) 
DO 5 X=NNXI,NNX 
5 WRITE(7,603) (¥V(S,X) ,S=MMI,MM,MMS) 
WRITE(7,608) 
608 FORMAT(‘C  VP*) 
DO 6 X=NNXI, NNX 
6 WRITE(7,603) (U(S,X) ¢S=MMI,MM,MMS) 
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WRITE(7,609) 


FORMAT (#0 


R BOUNDARIES") 


DO 8 X=NNXI,NNX 
WRITE(7,603) (W(S,X) ,S=MMI,MM,MMS) 
IF(NTIME.LT.NRCM) GO TO 101 


GO TO 103 


WRITE(6,699) NTIME 


FORMAT ('- 
RETURN 
END 


LAST RECORD ON TAPE HAS NTIME=',14,'.*) 
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CKEEKEEKKERKEEKEEER KEKE EEKKEAK KEKE EEK KEKE EKAE KEK EEE REKEEKRKESE KEKE EE ERE EE 


Cc * PLOT BEAS INTENSITIES VS. X AT VARIOUS TIMES. * 
Cc * BEAMS ARE BEAT FREQUENCY MIXED & COLLISIONALLY DAMPED. * 
Cc * RICHARD D. MILROY SEPT. 13, 1977. * 


CEEEKEK RAK EKR EK EERE KEKERER EK TEE EEK EKEKSERHEAKEEREKRE KEE EERE KEKE KKK EK KKKEK 
REAL TE(1000) ,TI (1000) ,N(1000) ,L1{ 1000) , L2 (1000) ,11(1000) 
1,12(1000) ,K1(1000) ,K2(1000) ,K3(1000) ,K4(1000) , LLMDA,LO,LP,LT,NO 
2,K10,L10,L20,110,120,101({1000) ,102 (1000) 
NO=4.02+16 
L10=10.6 
L20=10.615 
TEO=100.0 
TIO=100.0 
110=1.0E+11 
I20=1. 02+10 
NP=900 
NPLTS=3 
LO=100.0 
LP=20.0 
LT=LO+LP 
DX=LT/ (NP—1) 
NP1=NP* (LO/LT) 
NPIP1I=NP1+1 
NPM1=NP-1 
C------- FIND K1. 
LLMDA=ALOG (AMIN1 (2. 3*TEO*#*# 1.5, 12.0*TEO) ) 
K10=8. 67E-38*NO**2¥*L 10 ** 2*LLMDA/TEO**1.5 
C------- INITIALIZE SOME ARRAYS. 
DO 1 I=1,NP 
TE(I) =TEO 
TI{(Y)=T10 
N (I) =NO 
L1(I) =L10 
L2(1) =L20 
1 CONTINUE 
DO 2 I=1,NP1 
X= (NP1P1-I) *DX 
K1(I) =K10 
K3 (I) =K10* (L20/L10) **2 
I1(I)=110*EXP(-K 10*X) 
I2(I) =1.0 
2 CONTINUE 
DO 3 I=NP1P1,NP 
, K1(I) =0.0 
K2(I) =0.0 
K3 (I) =0.0 
K4 (I) =0.0 
I1(I)=110 
T2(1)'=1.0 
3 CONTINUE 
12(1)=120 
DO 9 I=1,NP 
I01(1) =I1(I) 
9 102(1I)=12(1) 
C------- PIND K2 AND K&. 
CALL BFMR(L1,L2,N,TE,TI,2,K2) 
DO 4 I=1,NP1 
K2(L) =K2 (1) 
K4 (I) =K2(1) * (L10/L20) 
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4 CONTINUE 


(OS INITIALIZE PLOTTING AND DRAW AXIS. 


CALL PLINT (LT,DX,NP) 
NTOTAL=NP-2 


NPLT=(NTOTAL/NPLTS)—1 


C------- CALCULATE INTENSI 
DO 5 J=1,NTOTAL 
DO 6 I=1,NPM1 


TIES. 


Z=0.5* (K1(1T) #K2 (1) *102(I)) *DX 


6 11(1) =101 (Le 1) * (1-2) / (1+2) 


DO 7 I=2,NP 


2=0.5* (K3 (I) —K4 (I) #101(I)) *DX 


7 I2(1) =102 (1-1) *(1-2) 
DO 8 I=1,NP 
101(I) =11(T) 
8 102{I) =I2 (1) 
C------- PLOT IF DESIRED. 


IF(((J-1) /NPLT) *NPLT.EQ. (J-1)) CALL PLT (11,12) 


5 CONTINUE 
CALL PLOT{0.0,0.0,99 
STOP 
END 
SUBROUTINE PLINT (LT, 


RBAL LT,11(1000) ,12(1000), TOS tai crtcioco L12(1000) 


7 (\+2) 


9) 


DX,NP) 


INTEGER ONESEC (2) /0, 1000000/ 


XLEN=6.0 

YLEN=6.0 

LIMIN=9.0 
LIMAX=14.0 

CALL PLOTS 

CALL ERASE (6&1) 

CALL TWAIT(0,ONESEC) 


CALL PLOT (20.0,10.0,-3) 
P=AMIN1(30.0/XLEN, 20.0/YLEN) 


CALL FACTOR (?) 
GorTow2 
1 CALL PLOT (3.0,3.0,-3 
2 CONTINUE 
C------- DRAW THE AXIS. 
DELTLG=LIMIN-LIMAX 


CALL LOGAX (0.0,0.0,'I',1,YLEN,90.0,LIMIN,DELTLG,0O. 0) 


AXDELT=LT/XLEN 


CALL AXIS2(0.0,0.0,°X',—-1,XLEN,0.0,0.0,AXDELT, 1. 0) 


CALL PLOT(0.0, YLEN,3 
CALL PLOT (XLEN,YLEN, 
CALL PLOT(XLEN,0.0,2 
C------- SET UP X - VECTOR 

DO 3 I=1,NP 

3 X(I)=(I-1) *DX 
GO TO 999 
ENTRY PLT(11,12) 


C------- TAKE LOG OF INTENSITIES. 


DO 4 I=1,NP 

LI1({I) =ALOG10 (11 (I)) 
LI2(I) =ALOG10{I2(I)) 
IP(LI1(1).LT.LIMIN) 
IF (LI2 (1) «LT sLININ) 
LP (LI1({L1) -GT.LIMAX) 
IP (LI2 (I) «GT.LIMAX) 

4 CONTINUE 


) 


) 
2) 
) 


LI1 (1) 
bP2/(t) 
aanes) 
LI2 (1) 


=LIMIN 
=LIMIN 
=LIMAX 
=LIMAX 
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LI1(NP+1) = LIMIN 
LI2(NP+1) = LIMIN 
LI1(NP+2) = (LIMAX-LIMIN) /YLEW 


LI2(NP+2) = LI1(NP+2) 

X(NP+1) = 0.0 

X(NP+2) = LT/XLEN 

CALL LINE(X,LI2,NP,1,0,0) 

CALL LINEME, Liddy NPs le 050) 

RETURN 

END 

SUBROUTINE BFMR(L1,L2,N,TE,TI,NP,ALPHA) 


CEKEEEKEKEREKEE TERK EERE EE EK EEKEEK EE EKER EK EEE EEE KEKE EES EKER E EEK EKER KERES 


AAANAN 


AY CALCULATE BEAT FREQUENCY MIXING RATES. 
ne BOTH ELECTRON & ION MOTION IS ACCOUNTED FOR. 
* ELECTRON - ION COLLISIONS ARE FULLY ACCOUNTED FOR. 
* PONDEROMOTIVE FORCE ON BOTH ELECTRONS AND LIONS. 
Re RICHARD D. MILROY AUGUST, 14, 1977. 
KEKE EKEKKRKKEKKEHE KKK KEES EEE AERA EKEKK EKER EEA EKER ER EEK KEKE E KER KK ES EEKE 


COMPLEX J/(0.0,1.0)/,KE(1000),KI (1000) ,EP(1000) ,EDE(1000) 
1,£DI (1000) ,ECE(1000) ,ECI (1000) ,JE( 1000) ,JI (1000) ,X,B( 1000) 


Es 
* 
*x 
* 
* 
2 


REAL L1(1000),L2(1000) ,N(1000) ,TE( 1000) , TI (1000) ,W#3(1000) ,K3 (1000) 


1,1(1000) ,W2 (1000) ,ALPHA (1000) ,K1,K2 
C=3.0E+#10 


Cama FIND WS AND Koi 


DO 1 I=1,NP 

KK=I 
W1(I)=1.8858415/(L1(I)) B 
W2(I) =1.885E+15/ (L2(I)) 

wW3 (I) =W1 (1) -W2 (I) 
WEE=5, 63£+4* SORT (N (I)) 
IP(WPE.GE.W2(I)) GO TO 8 
K1=SQRT(W1 (I) #*#2-WPE*#*2) /C 
K 2=SQRT (W2 (I) **2-WPE**2) /C 
K3 (I) =K1+K2 

GO TO 9 

NP=KK~1 


—---- FIND LINEAR SUSCEPTABILITIES. 


CALL LSUS(W3,K3,N,TE,TI,NP,KE,KI) 


se eae CALCULATE COLLISIONAL CORRECTION FACTOR. 


DO 7 I=1,NP 

VEI=2. 53E-05*N (I) / (TE (I) ** 1. 5) 
WPE=5. 63E+4* SQRT (N (I)) 

B(I) =1.0-J*W3(I) *VEI/ (WPE**2) 
KE (I) =B{I) *KE (I) 

KI (I) =B (I) *KI (I) 

CONTINUE 


---- SPECIFY DIELECTRIC CONSTANT EP. 


DO 2 I=1,NP 
EP (I) =1.0+#KE (I) #KI (I) 


—--- SPECIFY PONDEROMOTIVE *FIELDS*. FOR 11=I12=1.0 


DO 3 I=1,NP 

X=K3 (I) *L1 (I) *L2 (I) *J 
EDE (I) =3.11E-16*X 

EDI (I) =-1.69E-19*X 


---- SPECIFY COULOMB FIELDS. 


DO 4 I=1,NP 
ECE(I) =-KE (I) * (EDE (I) * (1.0#KI(I) )-KI(I) *EDI (I) )/ (EP (I) *3B{I)) 
ECI (1) =-KI (1) * (EDI (I) * (1.0+KE(I) )-KE{I) *EDE(L)) /(EP (1) *B (I) ) 


—---- SPECIFY ELECTRON AND ION CURRENTS. 


DO 5 I=1,NP 
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X=J*W3 (I) /12.566 
JE (1) =X*ECE(I) 
5 JI (I) =X*ECI (I) 
C------- SPECIFY BEAT FREQUENCY MIXING RATES. 
DO 6 I=1,NP 
X=2.0E-7*W1(I) /W3(T) 


A31E = X*REAL(EDE(I) *CONJG (JE(I))) 
A32E = X*REAL (ZCI (I) *CONJG (JE(I) )) 
A31L = X*REAL(EDI (I) *CONJG (JI (I))) 
A32I = X*REAL(ECE(I) *CONJG (JI (I) )) 


A3E = A31E+A32E 
A3I = A3Z1I+A321 
ALPHA(I) = A3ZE+tA3I 
Cc WRITE(6,601) L2(I) ,A31E,A32£,A3E,A311,A321,A31, ALPHA (I) 
601 FORMAT(* ',1P8E12. 4) 
6 CONTINUE 
RETURN 
END 
SUBROUTINE LSUS(W3,K3,N,TE,TI,NP,KE,KI) 
CHEEKEEKEREEE ERES EE EERE KK REE RHEEK ECAR KEKE AE KCK EEK KAR EEE KE EK EKA KKK KE 
c * CALCULATE LINEAR SUSCEPTABILITIES FOR BOTH ELECTRONS & PROTONS. * 
‘e * RICHARD D. MILROY AUGUST, 14, 1977. * 
CHEEK KKK KEKE ERE ERK EKAS CREEK KKK KKSEK KE KSSKKKERAEKE EKER EK EK EKE KE 
COMPLEX KE(1000) ,KI(1000),J/ (0.0,1.0) /,FO 
REAL W3(1000),K3 (1000) ,N({1000) ,TE( 1000) , TI (1000) 
C------- FIND KE. 
DO 1 I=1,NP 
WP=5.635+4*SQRT(N (I) ) 
VO=5.93E+7*SQRT(TE (I) ) 
AO=W¥3 (1) /(K3 (I) *VO) 
IF(A0.GT.50.0) GO TO 3 
KB (I) =2.0* (WP*AO/W3 (I) ) #*#2*(1.0+3*A0*PO (AO) ) 
GO TO 1 
3 KE(I)=- (WP/W3(I) ) *#2 
1 CONTINUE 
C------- FIND KI. 
DO 2 I=1,NP 
WP=1.31E+3¥*SQRT(N (I) ) 
VO=1. 38E+6*SQRT(TI (I)) 
AO=¥3 (1) /(K3 (I) *VO) 
IP (A0,GT.50.0) GO TO 4 
KI (I) =2. 0* (WP#AO/W3(T) ) **2* (1.0+J*A0*FO (A0) ) 
GO TO 2 
4 KI(I)=- (4P/83(I) ) **#2 
‘ 2 CONTINUE 


RETURN 
END 
COMPLEX FUNCTION FO(A0) 
c------- CALCULATE FO AS DEFINED ON PAGE 178 OF STIX. 


COMPLEX J/(0.0,1.0)/ 

REAL POSPL (12,5) 

DATA FOSPL 705270050507 120 cta2e le Us Sp tases op eUssso nda Ue 

1 .3€95,0.7199, 1.064, 14076, 16015, 02 913,00. 7451, 0. 6027,0.4462,0.3565 
2, 002992, 0625 87, 12003, 16299, 045474, -0.2165,-0.4162,-0.5635,-U. 532, 
3-0.4114,-0.2316,-0. 1393 ,-0.0931,04 0,0. 0,0. 987,-3.4911,-0.3284, 
4-0.6701,-0 206606 ,0.1709, 0. 231, 0- 1287,0.5593E-1,0.03642,0.0,1.097 
5, 4.976 950272 4-056 96412007 40. 263 3,0. 06673,-0.06821,-0.0485, 
6-0.01301,-0. 02428, 0.0/ 

AOE=A0 

IF (AOE.GT. 10.) AOE=10.0 
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11 


AOES=AOE*AOE 

SPLINE APPROXIMATION FOR FO 

IF(A0.LT.0.21) GO TO 90 

IP (A0.GT.3.25)GO TO 12 

Do? I=1,12 

IF(A0.LT.POSPL(I,1))GO TO 8 

CONTINUE 

I=I-1 

DA=A0-FOSPL (I, 1) 

FU=FOSPL (1,2) #+FOSPL(I,3) *DA*FOSPL(I,4) *DA*DA+FOSPL (1,5) *DA**3 
FO=J*P0 

GO TO 11 

FO=d /A0* (12040.5/(A0*A0) +0.75/(A0* #4) + 1,875/ (A0**6) +6. 563/(A0**8) ) 
GO TO 11 
F0=2.0*3* (A0-0. 666667 *A0 #34. 26666 7#A0**5-.0 76 1905*A0**7) 

GO TO 11 

DAMP=1.772*E XP (-AOES) 

F0=F0+DAMP 

RETURN 

END 
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CEEKSERECHERESES SE CEES EEK EREEE EKER EEK EKER REE EEL AKER KEE EEK ERE EE SER EE 


Cc 
Cc 
Cc 
Cc 
Cc 
Cc 


* SIMULATE INTERACTION OF TNO ANTIPARALLEL BEAMS IN A PLASMA 

te WITH A DIFFERENCE FREQUENCY OF THE ORDER OF THE ION-ACOUSTIC 
* FREQUENCY. COST MAY BE PROHIBATIVS FOR LARGER DIFFERENCE 

ng FREQUENCIES. MAIN CALCULATIONS IN SUBROUTINE PCOd. 


* DEVELOPED BY RICHARD D. MILROY. OCTOBER 24 1977, 
RK EER EEK EA EK EE RR EEE REE EE EERE RE ETRE EEK EEE ER ERE EE KEE THERE RE ERE S 


COMPLEX *16 D(100) ,A1(100),A2(100) ,N(100),K1,82,A1BND,CDT,CDT2 


1,CW3,CTMAX,J/(0.0D0,1.0D0) /,T,CKIB1,CKIB2 
COMPLEX CMPLX 
REAL NO,LDO1,LD2,K3,KA1,KA2,KIB1,KIB2,LLADA 


C------- SPECIFY INDEPENDENT VARIABLES. 


NO=2.5E+17 
TEO=160.0 
TI0=120.0 
LD1=10. 2470 
LD2=10.2605 
ZAAX=80.0 
WMAX=6.0E+11 
PLEN=3.0 
NP=99 
NINT=41 
NPW=900 
NDT=10 
NPRT=30 
NTAP=5 
NREST=0 
P1=1.8E+10 
P21 1.0 
P22 
P23 
P24 
P20 
Z21 


— 
o 


run tunw db wa 
ee @ « @© @ 6 8 
ocoounoooonm 


MN E&Wer © ow a oa 


C=3.,0E+10 


SSS CALCULATE SOME DEPENDENT VARIABLES. 


W3=1.885E+15*(1./LD1-1./LD2) 
DZ=PLEN/ (NP- 1) 
W1=1.885E+15/LD1 
W#2=1.885E+15/LD2 
WP=5.63E+04* SORT (NO) 

C1 = C*SQRT(1.0- (W#P/H1) **2) 
DT = DZ/(2.0*C1) é 
DT2 = 2.0*DT 

TMAX = Z2MAX/C1 
SQRT(W1**2-WP**2) /C 
SQRT (W¥ 1##2-WP**2) /C 
K3 = KA1 + KA2 
T=(0.0D0,0.0D0) 

NTIME=0 


tal 

> 

_ 
vou 


SIS CALCULATE INVERSE BREMSSTRAHLUNG COEFICIESTS. 


LLMDA = ALOG (12.0*TEO) 

IPF(TEO.LT.27.0) LLMDA = ALOG (2.3*T E0*#1.5) 
GAM = 2.9E-06*NO*LLMDA/ (TEO*#1. 5) 

KIB1 = GAM*WP#*#2/(2.0*W1**2) 


* 
x 
* 
* 
* 
* 
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KIB2 = GAM*WP*¥*2/(2.0*92**2) 


C== =< - == PREPARE TO CALL PCOM - THE MAIN SUBROUTINE 


‘ 


CALL DET(D,NINT, WMAX,K3,DT2,TEO,TIO, NO, NPS) 
X17 = SQRT(6.283E7/ (W1*KA1) ) 

X2 = SORT (6.283E7/ (W2*KA2) ) 

DO 1 I=1,NP 

N (I) =(0.0D0, 0.0D0) 

A1(L) = X1*SCRT{P1) #EX2 (-KIB1* (TMAX) ) 
CONTINUE 


------- SPECIFY INITIAL PROFILE FOR PULSE. 


Pe 


: 


1 


4 


DO 2 I=1,NP 

Z = (I-1)*DZ 

TP (2uGT.222) GO TO 3 

A2(I) = P21 + ((2-221)/(Z22-221) ) * (P22-P21) 

GO TO 6 

CONTINUE 

IP(Z.GT.223) GO TO 4 

A2(I) = P22 + ((2-222) / (223-222) ) * (P23-P22) 

GO TO 6 

CONTINUE 

LP(Z.67T.z224) GO TO 5 

A2(I) = P23 + ((2-223)/ (224-223) ) * (P24-P23) 

GO TO 6 - 
CONTINUE 

LF(Z.GTsZ25) STOP 

A2(I) = P24 # ((Z-224)/(Z25-224) ) * (P25-P24) 

GO TO 6 - 
A2{I) = X2*CDSQRT(A2(I)) 

CONTINUE 

IF (NREST.NE. 0) 

CALL REST(NREST,NTIME,T,A1,A2,N) 

A1BND = X1¥*SQRT(P1) 

K1=-J*HP#*2/ (2.0*W 1*NO) 

K2=W1*K1/W2 

Cad 3=CMPLX (83,020) 

CTMAX=CMPLX (TMAX,0.0) 

CDT=CMPLX {DT,0.0) 

CDT2=CMPLX (DT2,0.0) 

CKIB1 = CMPLX(KIB1,0.0) 

CKIB2 = CMPLX(KIB2,0.0) 

CALL PCOM(A1,A2,N,D,CD1,CDT2,NDT,NINT, NP,K1,K2,A1BND,CW3,CTMAX 
,¥1,W2,NPRT, NTAP,T,NTINE, KA, KA2,CKIB1,CKIB2) 
RETURN 

END 

SUBROUTINE PCOM(A1,A2,N,D,DT,DT2,NDT,NINT, NP,K1,K2,ABND 
/W3,THAX,W1,W2,NPRT, NTAP,T,NTINE,KA1,KA2,K1B1,K1B2) 


CR RRR EEE EE ETRE ERASE EEE EERE EEE TEE ERE EER ER EE EE EE EEE BEES 


Cc 


Cc 
Cc 
Cc 
Cc 
Cc 


* 


% % 


x 


CALCULATE BEAM COMPRESSION DUE TO TWO ANTIPARALLEL 
ELECTROMAGNETIC BEAMS WITH A DIFFERENCE FREQUENCY 


TRANSIENT BEHAVIOUR IS INCLUDED. 
RICHARD D. MILROY OCTOBER 23, 1977. 


x 

x 

CLOSE TO THE NATURAL ION-ACOUSTIC FREQUENCY. % 
*. 

* 

* 


RARE EE ERE RE EEE EE EET REE RR EK EEE EEK ER ERE ERE REE EE ERE ER EE ERERE EE EEE 


1 


IMPLICIT COMPLEX*16 (A-H,0-2Z) 

COMPLEX*16 A1(100) ,A2(100) ,N (100) ,D(100) ,K1,K2 
7410 (100) ,F (100) ,1J/(0.0D0,1.0D0) /,KIB1,KIB2 
REAL W1,W2,KA1,KA2 

NDT1=NDT 

NDT=1 

Do 9 I=1,NP 
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9 A10(1I)=A1(TI) 
1 CONTINUE 
A1BND = CDEXP(-KIB1* (TMAX-T) ) *ABND 
NTIME=NTIME+* 1 
IF(NTIME.GT.NP*2) NDT=NDT1 
DTN=DT*NDT 
T=T+DTN 
C------- ADVANCE A1 BY DT - NDT TIMES. 
A1(1) = A1BND 
DO 3 J=1,NDT 
A1IM1=A1BND 
DO 2 I=2,NP 
ImM1=I-1 
A 1I=A1 (TI) 
AV (I) =A1IM14+DT*K1* (N (IM1) #A2 (IM1) #N(I) #A2(I))-DT*KIBI*AIING 
A1IM1=A1I 
2 CONTINUE 
3 CONTINUE 
C------- ADVANCE A2 BY DTN. 
NN = MINO((NIIME#1)/2,NP) 
DO 4 I=1,NN 
A2 (I) =A2 (I) #*DTN*K2*DCONJG (N (I) ) ¥A10(I) ~DTN*KIB2*A2 (1) 
4 CONTINUE 
C------- MAKE OLD Al EQUAL TO NEW Al. 
DO 5 I=1,NP 
A10(I) =A1(I) 
5 CONTINUE i 
C------- RECALCULATE N(I). 
NN=MINO(NTIME/2,NP) 
IF(NNsLT.2) GO TO 8 
DO 7 I=2,NN 
NNN=MINO(I,NINT) 
DO 6 J=1,NNN 
F (J) =A1(I-d# 1) *DCONIG (A2 (I-d+ 1) ) *D (J) *CDEXP (Id *W3* (J-1) *DT2) *.3989 
6 CONTINUE 
CALL SIMP(ANS,F,NNN, DT2) 
N (I) =ANS 
7 CONTINUE 
8 CONTINUE 
IP ({(NTIMEs EQ.1) oOR. ( ((NTINE/NTAP) *NTAP) »EQ.NTIME)) 
IWRITE(3) T,NTIME,NP,DT2,A1,A2,N,W1,W2, KAI, KA2 
IF ((NTIME.£Q.1).OR. ( ((NTIME/NPRT) *NPRT) » EQ.NTIME) ) 
CALL RITE(A1,A2,N,NTIME,NP,T,@1,82,KA1,KA2) 
IF(CDABS{T) ~LT.CDABS (TMAX)) GO TO 1 
CALL RITE(A1,A2,N,NTIME,NP,T,W1,W2,KA1, KA2) 
RETURN 
END 
SUBROUTINE DET (D,NINT,WMAX,K3,DT,TE,TI,N,NPH) 
CERRRERERERE EE ERE SEEKER EE EES eu KKKKKEKKAKEEREEKEERES EXKKKEKEKHKKEKKKKER EK 
e * CALCULATE D3; BD (Ky t)}i« * 
Cc * RICHARD Ds. MILROY OCTOBER 24, 1977. * 
CHER EERHEE REE ESET EE REE REE EK EEE EEK EERE SEER EERE EEK EEE TEE EE EE EEE EF 
COMPLEX*#16 D{100),ANS 
COMPLEX DW(1000) 4? (1000) ,J/(0.0,1.0)/ 
REAL W3(1000),1T(100) ,K3,N 
C------- CALCULATE DW; D(K,W) . 
DELB=2.0*WMAX/ (NPU-1) 
pO 1 I=1,NPW 
W3 (I) =-WMAX+ DELW* (I- 1) 
LF (ABS (#3 (I) )-LT. 1.0 £+08) W3 (I) =1. OE+08 
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1 CONTINUE 
CALL DEW(NPW,W3,K3,TE,TI,N,DW) 
C------- CALCULATE D; D(K,T)- 


DO 2 JJ=1,NINT 
TT=DT* (JJ-1) 
T(dd)=TT 
DO 3 I=1,NPW 
wI=W3(I) *IT 
F (1) =0.3989*DW{I) *CEXP (-J*8T) 
3 CONTINUE 
CALL SIMP1(ANS,F,NPW,DEL¥) 
D(JJ) =ANS 
2 CONTINUE 
D (1) =(0.0D0, 0.0D0) 
C------- MAKE PLOTS OF DW AND D IF DESIBED. 
CALL PLT({W3,T,D¥,D,NPW,NINT) 
RETURN 
END 
SUBROUTINE DEW (NP,W3,K3,TE,TI,N, DW) 
CERASERESHRK ER EEEE RESALE EE EERE EERE AREA EE ERE EEE EEE ERE REET ERE SES TELLS 
Cc + CALCULATE DW; D (Keil) * 
Cc * RICHARD D. MILROY OCTOBER 24, 1977. * 
CA II AICI RE SEER TEE EE EE EET EE EEE ES 
COMPLEX Da (1000) ,KE(1000),KI (1000) ,B,J/(020,1.0) /sC 
REAL W3(1000),N,K3 


C------- FIND LINEAR SUSCEPTABILITI2S. 

CALL LSUS(W3,K3,N,TE,TI,NP,KE,KI) : 
C------- CALCULATE DW. 

VEI=2.53E-05*N/(TE**1. 5) 

WP E=5.63E+04 *SQRT (N) 


C=-K3**2*9.7 16E+04 
DO 1 I=1,NP 
B=1. 0-J#*W3 (I) *VEI/ (WPE**2) 
Dw (L) =C*KE (I) * (120+B*KI (I))/(1.0+B*KE(I) +B*KI(T)) 
1 CONTINUE 
RETURN 
END 
SUBROUTINE LSUS(W3,K3,N,TE,TI,NP,KE,KI) 
CHREEEEERER ES EERE EEE EEE EERE HEEE EE EE ESET ALES TEES ORE ES EEE EERE SAE ES SESS SES 
Cc * CALCULATE LINEAR SUSCEPTABILITIES FOR BOTH ELECTRONS & PROTONS. * 
Cc * RICHARD D. MILROY NUGUST, 1%; 1977s * 
ChbAREE SESH EREREE TERE ERERERAEEE FEREEEER £EEEESER ESHER EES SEE EES ESE SESS SES 
COMPLEX KE (1000) ,KI(1000),J/(0.0,1.0)/,F0 
REAL W3(1000),K3,N 
C------- FIND KE. 
WP=5.63E+4*SORT(N) 
V¥O=5.93E+7*SQRT (TE) 
Do 1 I=1,NP : 
AO=W3(I) / (K3*VO) 
IF(A0.GT.50.0) GO TO 3 
KE(1) =2. 0% (WP*AO/W3 (I) ) *#2*(1.0+5* A0*PO (A0)) 
GO TO 1 
3 KE(1)=- (WP/W3 (I) ) **2 
1 CONTINUE 
C------- FIND KI. 
WP=1.31E+3*SQRT(N) 
VO=1. 38E+6*SQRT(TL) 
pO 2 I=1,NP 
AO=W3 (I) /(K3*VO) 
IP(A0.GT.50.0) GO TO 4 
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KI (I) =2.0* (WP*AO/W3 (I) ) **2*(1.0+I*A0*FO (A0)) 


GO TO 2 
4 KI (I)=- (WP/W3 (I) ) **2 
2 CONTINUE 
RETURN 
END 
COMPLEX FUNCTION FO(AA0) 
C------- CALCULATE FO AS DEFINED ON PAGE 178 OF STIX. 


COMPLEX J/{0.0,1.0)/ 
REAL FOSPL (12,5) 
DATA FOSPL/0029005,00B85 120, 1a 2p leds lop 20 0420543204305 04e0, 
1 3 £95, 007199y 16064, 16076, 12.015, 06 913, 027451, 0- 6027 402 4462,0- 3565 
25 0029927062587 12003 14299 90-5474, -042165 9-044 1624-0. 5635570. 9324 
3-0. 114, -022316,-061393 ,- 02 0931, 020,04 0,0. 987, -344911,-0. 3284, 
= 0.6701 --0 2G 6606 041709, 0223 1,02 1287 02 5593E-1,0.03642,0.0,1.097 
5,-4.976 5027290256 96, 12007 , 02 263 3,0. 06673,-0-06821,-0.0485, 
6-0.01301,-0.02428,0.0/ 
AO = ABS (AAO) 
AOQE=A0 
IP (AOE.GT.» 10.) AOE=10.0 
AOES=AQE*A0OE 
Cc SPLINE APPROXIMATION FOR FO 
IF(A0.LT.0.21) GO TO 90 
IF (A0.GT.3.25)GO TO 12 
pOvPT=14A2 
IF (AQ. LT.FOSPL(I,1))GO TO 8 
7 CONTINUE . 
8 I-I-1 
DA=A0-FOSPL (I, 1) 
FO=POSPL (I, 2) *POSPL(I,3) *DA+ POSPL(I,4) *DA*DA+FOSPL (I, 5) *DA**3 
FO=J*FO 
corto 
12 P0=d /A0* (1.040.5/(AOQ*A0) #0.75/(A0**4) + 1.875/ (A0*#6) +6. 563/(A0**8)) 
GorTtorsa 
90 F0=2.0#J5* (AV-0.666667 *A0 ##3+%. 26666 7*A0** 5-20.76 1905¥*A0* *7) 
GO TO 11 
11 DAMP=1.772*E XP (-AOQES) 
FO = (AAQ/AQ) *FO 
FO=F0+DAMP 
RETURN 
END 


SUBROUTINE SIMP(ANS,F,N, DT) 
CRAKE HEE RE ET ER ES RRA REE RI EE EEE EEE ERE EER TERE EEE ES EE EE TE EEE EE 


Cc * INTEGRATE F USING SIMPSON'S RULE. * 
Ce x IF N IS NOT ODD INTEGRATE TO N-1 AND ADD REMAINDER, * 
Cc * RICHARD D. MILROY OCTOBER 23, 1977. * 


C HERSEK ERER EE KRKEKKKSKKKEK KEE EKKEEE KEKE REA ERE AEE EREE SEERA EERE EEK EEE REE ES 
IMPLICIT COMPLEX*16 (A-H,0-Z) 
COMPLEX*16 F (100) 

IP(NeEQ.2) GO TO 1 
GO TO 2 

1 ANS=(0.5D0,0.0D0) *DY* (F (1) +F (2)) 
GO TO 6 

2 NTEST=1 
LP (((N/2) *2) -BQ.N) NTEST=2 
N1=N 
IP(NTESTsEQ. 2) N1=N-1 
NM1=N1-1 
NM2=N1-2 
P1=F (1) +P (N1) 
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F2=(0.0D0,0.0D0) 
F3=(0. 0D0,0.0D0) 
DO 3 I=2,NM1,2 
F2=F2¢F (I) 

DO 4 I=3,NM2,2 
P3=P3+P (I) 


ANS= (DT/(3.0D0,0.0D0)) *(F1+(4.0D0,0.0D0) *F2+(2.0D0,0.0D0) *F3) 


GO TO (6,5),NTEST 

ANS=ANS+ (F (N1) +F (N)) *DT* (0.5D0, 0.0D0) 
RZTURN 

END 

SUBROUTINE SIMP1(ANS,F,N,DT) 


CHEK EK ERE AE EER EEE ORE REE EEE REESE ERE EE EERE ERE ERE RE EEE EERE ERE TERE ESE ER 


Cc 
Cc 
Cc 


* 
* 
* 


INTEGRATE F USING SIMPSON'S RULE. 


IF N IS NOT ODD INTEGRATE TO N-1 AND ADD REMAINDER. 


RICHARD D. MILROY OCTOBER 23, 1977. 


* 
x 
* 


CREE ER ER EEE EERE REESE EE RARE EE EERE AEE SER EE EEE RTE EKER EEE EE HE SEE ES 


COMPLEX*16 ANS 

COMPLEX F(1000),F1,F2,F3 
IP(N.EQ.2) GO TO 1 

GOuTO)2 
ANS=(0.5,0.0) *DT* {P(1) #F(2)) 

GO TO 6 

NTEST=1 

I? (((N/2) *2) -EQsN) NTEST=2 

N1=N 

IF(NTEST.EQ-2) N1=N-1 

NM1=N1-1 

NM2=N1-2 

F 1=F (1) +P (N1) 

F2=(0.0,0.0) 

F3=(0.0,0.0) 

DO 3 IL=2,NM1,2 

P2=F2+F (I) 

DO 4 I[=3,NM2,2 

F3=F3+F (1) 

ANS= (DT/ (320,0.0)) *(P1+ (4.0,0.0) *F 2+(2.0,0.0) *F3) 
GO TO (6,5) ,-NTEST 

ANS=ANS+ (FP {N1) +P (N)) *DT*(0.5,0.0) 
RETURN 

END 

SUBROUTINE REST(NREST,NTIME,T,A1,A2,N) 


CERRARE EERE ER RES EERE RETA ER EERE EE EEE EEE EEE ETRE REE EER EEE EEE EEE EE REESE 


Cc 
Cc 


* 
* 


READ DATA FROM DISK TO ALLOW ROUTINE TO RESTART. 
RICHARD De. MILROY OCTOBER 26, 1977. 


x 
* 


CHER ERE RHEE HEE ERE ERE EE EE ERE EER EERE EE EE EERE AEE ERE HE EEE ERE EEE EEE EE EEE EE 


1 


601 


COMPLEX*16 A1(100) ,A2({100) ,N(100),1,DT2 

READ (2,END=999) T,NTIME . 
IF(NTIME.NE.NREST) GO TO 1 

BACKSPACE 2 

READ(2) T,NTIME,NP,DT2,A1,A2,N,W1, 82 

RETURN 

WRITE(6,601) NREST 

PORMAT('1',"RECORD NREST=",15,' LIS NOT ON UNIT 2.') 
STOP 

END 

SUBROUTINE PLT (W3,T,DW,DT,NPW,NPT) 

COMPLEX*16 DT(100) 

CONPLEX DW(1000) ,Z22 

REAL W3(1000),17(100) ,RW(1000) ,IW (1000) ,1T(1000) ,F (2000) 
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INTEGER ONESEC (2) /0, 1000000/ 


XLEN = 3.5 
YLEN = 3.5 
XINT = 6.0 
XINT1 = 5.0 
YINT = 6.0 


CALL PLOTS 

CALL ORG1(XLEN,YLEN) 
CALL TERASE(&1) 
CALL TWAIT (0 ,ONESEC) 

1 CONTINUE 
DO 2 I=1,NPW 
RW(I) = REAL (DW(I)) 

2 IW(I) = AIMAG(DW(I)) 
DO 3 I= 1,NPT 
Z2Z2Z=DT (I) 

3 IT(L1) = REAL (222) 

c------- SCALE QUANTITIES TO BE PLOTTED. 

DO 4 I=1,NPW 
P(I) = RWwW(I) 

4 F(I+NPW) = Iw(I) 
NPW2 = 2*NPW 
CALL SCALE (W3,XINT,NPW,1) 
CALL SCALE(T,XINT1,NPT, 1) 
CALL SCALE(F,YINT,NPW2,1) 
CALL SCALE({IT,YINT,NPT, 1) 
W3(NPW+2) = W3(NPW+2) *XINT/XLEN 
T(NPT+2) = T{NPT+2) *XINTI/XLEN 


F(NPW2+2) = F(NPW2+2) *YINT/YLEN 
IT(NPT#2} = IT(NPT+2) *YINT/YLEN 
RW (NPW41) = F(NPW2+1) 
IW(NPWH1) = F(NPW2+1) 
RW(NPW+2) = F(NPW2+2) 
IW(NPW#2) = F(NPW2+2) 
C-------- DRAW THE AXIS FOR FREQUENCY SPECTRUM PLOT. 


AXMIN = W3(NPH+1) 
AXDELT = W3(NPW+ 2) 
DTIC = XLEN/XINT 
» CALL AXIS2(0.0,0.0,°W',-1,XLEN,0.0 ,AXMIN,AXDELT, DTIC) 
CALL PLOT(0.0,YLEN,3) 
CALL PLOT (XLEN,YLEN, 2) 
CALL PLOT(XLEN,0.0,2) 
AXMIN = Ri (NPWt1) 
AXDELT = RW(NPW+2) 
DTIC = -YLEN/XINT 
CALL AXIS2 (020,0-0,'D',1,YLEN,90.0,AXSIN,AXDELT, DTIC) 
C------- PLOTL THE PLOT. 
CALL LINE(W3,RW,NPW, 1,0,0) 
CALL LINE (#3 ,IW,NPW,1,0,0) 
CALL ORG(XLEN, YLEN) 
cC-—----- DRAW AXIS FOR T PLOT. 
AXMIN = T(NPT+1) 
AXDELT = T(NPT#2) 
DTIC = XLEN/XINT1 
CALL AXIS2 (020,000,'T',—1,XLEN,0.0 ,AXMIN, AXDELT, DTIC) 
CALL PLOT (0.0, YLEN,3) 
CALL PLOT (XLEN,YLEN, 2) 
CALL PLOT(XLEN ,0.0,2) 
AXMIN = IT(NPT+1) 
AXDELT = IT(NPT+2) 
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DTIC = -YLEN/XINT 

CALL AXIS2 (0.0,0.0,'D",1,YLEN, 90.0 ,AXMIN,AXDELT, DTIC) 
-- PLOT THE PLOT. 

CALL LINE(T,IT,NPT,1,0,0) 

CALL PLOT (0.0,0.0,999) 

RETURN 

END 

SUBROUTINE ORG1(XLEN,YLEN) 

----MOVE ORIGIN IN A WAY TO MINIMIZE PLOTTER PAPER WASTE. 
----FOR TEKTRONIX, RE-SCALE PLOT AND HALT UNTILL RETURN ENTERED. 
CALL TCLEAR(&1) 

CALL TERASE(&1) 

F=AMIN1(30.0/XLEN, 20-0/YLEN) 

CALL FACTOR (F) 

CALL PLOT (2. U,2.0,-3) 

GO TO 10 

CALL PLOT (3.0,3.0,-3) 

X0=0.0 

YO=0.0 

XL=XLEN 

YL=YLEN 

GO TO 10 

ENTRY ORG (XLEN,YLEN) . 

----ENTER HERE FOR ALL BUT 1°ST CALL TO THIS ROUTINE. 
CALL TCLEAR(&2) 

READ (6,601) NOTNG 
FORMAT (15) 

CALL TERASE(&2) 

GO TO 10 

VX=6.0+XL 

VY=6.0+YL 

Y=YO+VY+YLEN 

YL=YLEN 

IF(Y.GT.25.0) GO TO 3 

CALL PLOT (0.0, VY,~-3) 

YO=YO+r#VY 

LP (XLEN.GT.XL) XL=XLEN 

GO TO 10 

VY=-10 

CALL PLOT (VX ,VY,-3) 

XL=XLEN 

XO=X0+VX 

Y0=0.0 

RETURN 

END 

SUBROUTINE RITE (A1,A2,N,NTIME,NP,TINE, W1,82,KA1,KA2) 
COMPLEX* 16 A1(100) ,A2(100) ,N(100), TINE 

COMPLEX T1 

REAL P1,P2,T,KA1,KA2 

C=3.0E+10 

T1=TIME 

Y=REAL (T1) 

WRITE(6,601) NTIME,T 

FORMAT ('O0*,*NTIME=',15,' Tee VRE da ciel SEC. "°) 
NP1=NP 

NSKIP=10 

DG 1 1=1,NP1,NSKIP 

Pl = W@1*KA1* (CDABS{A1(I))) **2/6. 283E+07 

P2 = W2*KA2* (CDABS (A2(I))) **2/6. 28 3E+07 
XN=CDABS (N (I) ) 
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WRITE(6,602) I,P1,P2,XN 
1 CONTINUE 
602 FORMAT(* ',15,1P3E10. 2) 
RETURN 
END 
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CHER REE H AEE ERE EERE AREER EEE EEE I EE EAE TREE EERE E EES TEES FREES ES LESSEE 


Cc * PLOT THE OUTPUT FROM PCOM - PULSE COMPRESSION. * 
Cc * RICHARD D. MILROY OCTOBER 26, 1977. * 
rererrrrrrririr tt ttt titer tt ttt 22sec 

COMPLEX*16 T,DT2,41(100) -A2(100) ,N (100) 

COMPLEX Z 

REAL P1(102) ,P2(102) ,N1(102) ,X (102) ,KA1,KA2 

YLEN = Bieo 

YLEN = 3.5 

XINT = 6.0 

LPMIN = 7 

LPMAX = 13 

LNMIN = 12 

LNMAX = 17 


C = 3.0E+10 
READ(3) T,NTIME,NP,DT2,A1,A2,N,W1,2,KA1,KA2 
BACKSPACE 3 
C1 = KA1/W1*C#*2 
CALL PLOTS 
CALL ORG1(XLEN, YLEN) 
ALX=0.0 
ALY=800 
TR=-10.0 
1 CONTINUE 
CALL SETAL(ALX,ALY,1,6100,6100) , 
100 WRITE (6,601) 
601 FORMAT(*OINPUT Z‘) 
READ(5,501) DIST 
LF (DIST.LT.0.0) GO TO 999 
501 FORMAT (E10.3) 
TPLT = DIST/C1 
IF(TPLT.LT.TR) REWIND 3 
C------- READ IN VALUE FROM DISK CLOSEST TO DESIRED PLOT TINE. 
2 TOLD=TR 
READ(3,END=8) T 
TR=CDABS (T) 
IF(TReLT»TPL1) GO TO 2 
IF((TPLT-TOLD) «GT. (TR-TPLT)) GO TO 7 
8 BACKSPACE 3 
7 BACKSPACE 3 
READ (3) T,NTIME,NP,DT2,A1,A2,N,d 1,W2,KAI,KA2 
C------- DEPINE X — VECTOR. 
TR=CDABS (T) 
. DT=CDABS (DT2) 
DZ=C1*DT 
DO 3 I=1,NP 
X (I) =(1-1) #DZ 
3 CONTINUE 
C------- DEFINE Y - VECTORS. 
Do 4 I=1,NP 
P1(I) = W1*KA1*(CDABS(A1 (I))) **2/6.283E+07 
P2(I) = W2*KA2* (CDABS (A2(I))) **2/6.2835E+07 
N1(I)=2.O0*CDABS(N(I)) + 1.20 
4 CONTINUE 
c------- TAKE LOG OF QUANTITIES TO BE PLOTTED. 
Do 5 I=1,NP 
P1(I)=AL0G10 (P1(I)) 
P2(I) =ALOG10 (P2(T) ) 
N1({I) =ALOG 10 (N1(I)) 
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5 CONTINUE 
C------- MAKE SURE ALL QUANTITIES STAY WITHIN GRAPH BOUNDARIES. 
DO 6 I=1,NP 
IP(P1(I).LT.LPMIN) P1(I)=LPHIN 
IP(P1(1) -GT»LPMAX) P1(I)=LPMAX 
IF(P2(I)»LT.LPMIN) P2(I)=LPMIN 
IF (P2(1).GT.LPMAX) P2(I)=LPMAX 
IP(N1(I).LT.LNMIN) N1(I)=LNMIN 
LF(N1(I) .GT.LNMAX) N1(I)=iNMAX 
6 CONTINUE 
C------- SCALE THE VECTORS TO BE PLOTTED. 
CALL SCALE (X,XINT,NP,1) 
X(NP#2) = X(NP+2) *XINT/XLEN 
P1(NP+1)=LPMIN 
P2(NP+1) =LPHIN 
N1(NP4#1)=LNMIN 
P1(NP+2) =FLOAT (LPMAX-LPMIN) /YLEN 
P2(NP+2) =P1({NP#2) 
N1(NP¢2) =FLOAT (LNMAX-LNMIN) /XLEN 
C------- PLOT THE AXIS. 
AXMIN =X (NP#1) 
AXDELT=X (NP+2) 
DTIC = XLEN/XINT 
CALL AXIS2(0.0,0.0,"X (CM)*,-6,XLEN,0.0,AXMIN,AXDELT, DTIC) 
CALL PLOT({0.0,YLEN,3) 
CALL PLOT(XLEN,YLEN, 2) : 
DELTLG=FLOAT (LPMIN-LPMAX) 
AXMINI=FLOAT (LPMIN) 
CALL LOGAX(0.0,0.0,'P (W/CM**2) ",11,YLEN, 90.0,AXMINI, DELTLG, 3.0) 
DELTLG=PLOAT (LNMIN-LNM AX) 
AXMINI=FLOAT (LNMIN) 
CALL LOGAX (XLEN,0.0,'N',-1,YLEN, 90.0, AXMINI, DELTLG, 3.0) 
C------- @RITE POSITION OF BEAMFRONT IN LOWER LEFT CORNER. 
DIST = C1*TR 
¥X=0.0 
VY=-0.5 
HT=0.1 
CALL NUMBER{VX,VY,HT,DIST,0.0, 1) 
C--—---— DRAW THE LINES. 
CALL LINE {X,P1,NP, 1,0, 1) 
CALL LINE(X, P2,NP,1,0,1) 
CALL LINE(X,N1,NP, 1, 10,3) 
C------- MOVE ORIGIN UNLESS ON TEKTRONIX. 
CALL ORG (XLEN, YLEN) 
GO To 1 
999 CALL PLOT(0.0,0.0,999) 
STOP 
END 
SUBROUTINE ORG1(XLEN,YLEN) 
C---=--=== MOVE ORIGIN IN A WAY TO MINIMIZE PLOTTER PAPER WASTE. 
¢--------- FOR TEKTRONIX, RE-SCALE PLOT AND HALT UNTILL RETURN ENTERED. 
INTEGER ONESEC(2)/0, 1000000/ 
CALL TCLEAR (&1) 
CALL TERASE(61) 
CALL TWAIT(0,ON2SEC) 
P=AMIN1(30.0/XLEN, 20.0/YLEU) 
CALL FACTOR (F) 
CALL PLOT(3.0,2.0,-3) 
Go TO 10 
1 CALL PLOT(5.0,5.0,-3) 
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X0=0.0 
¥ 0=0.0 
XL=XLEN 
YL=YLEN 
GO TO 10 
ENTRY ORG(XLEN,YLEN) 
--------- ENTER HERE FOR ALL BUT 1*ST CALL TO THIS ROUTINE. 
CALL TCLEAR(&2) 
READ (6,601) NOTNG 
601 PORMAT (IS) 

CALL TERASE(&2) 
CALL TWALT(0,ONESEC) 
GO TO 10 

2 VX=6.0+XL 
VY=6.0+iL 
Y=YO+VY+YLEN 
YL=YLEW 
IF(Y.GT.20.0) GO TO 3 
CALL PLOT(0.0, VY »-3) 
YO=YO+#VY 
IP(XLEN.GT.XL) XL=XLEN 
GO TO) 10 

3 vY=-¥0 
CALL PLOT(YX,VY,-3) 
XL=XLEN 
XO=XO#VX 
Y0=0.0 

10 RETURN 
END 
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Cc S 

Cc * CODE = 0 
Cc ® =+14 
Cc * =+2 
Cc * =+3 
(es * =+4 
Cc * =+5 
(es x 

 @ * 

Cc 


WILL PLOT ALPHA 


STOP 

OR -1 
ORM 2 
OR -3 
OR -4 
OR -5 


IF (CODE.LT.0O) 
RICHARD D. 
REEKKKEKEKKKEKEKKEKKKKES HER KK EERE HKEKKEK EK KREKKEKKERERERKTKE RAE KEKEKER EES E 
REAL L1(1000),L2(1000) ,N({1000) , TE( 1000), 

1, ALPHA (1000) ,L2MIN,L2MAX,NO,L20,1L10,ND,L2D 


2,NE(1000) ,NI (1000) 
INTEGER CODE,C1, ONESEC (2)/0, 1000000/ 


NTIME=0 
NP=998 
NPI=NP 
XLEN=3.5 
YLEN=3.5 
LTEMIN=0 
LTEMAX=4 
LTIMIN=0 
LTIMAX=4 
LNAIN=16 
LNMAX=19 
LwMIN=10 
LWMAX=14 
L2MIN=10.6 
L2MAX=10.606 


(Oa ae L2MINP AND L2MAXP USED FOR X-AXIS LIMITS WHEN CODE=4. 


L2MIND=10.6 
L2MAXP=10.606 


LYMIN=-15 
LYMAX=-10 
LY 2MIN=- 16 
LY2MAX=-11 
L10=9.6 

ALX=0.0 

ALY=800.0 


VS. 


PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


ANY VARIABLE. 


ALPHA 
ALPHA 
ALPHA 
ALPHA 
ALPHA 


NO NEW AXIS 
MILROY 


TED=PLOAT(LTEMAX-LTEMIN) /NP 
TID=FLOAT (LTIMAX-LTIMIN) /NP 
ND=FLOAT (LNMAX-LNMIN) /NP 


L2D= (L2MAX—-L2MIN) /NP 


CALL PLOTS 


CALL ORG1(XLEN,YLEN) 


CALL TERASE (61) 


C------- PAUSE ONE SECOND WHILE TEKTRONIX SCREEN IS ERASED. 
CALL TWAIT{0,ONESEC) 


1 CONTINUE 
NP=NPI 
NTIME=NTIME+1 
ALY=ALY-60.0 


CALL SETAL (ALX,ALY,1,&100,8100) 


100 CONTINUE 
WRITE(6,601) 


601 FORMAT('O',* INPUT CODE 1-TE; 2-TI; 3-H; 
READ(5,501) CODE 


501 FORMAT (I 3) 


VS. TE. 
vs. TI. 
VS. He 
VSie L2. 
VS. TE. 
IS MADE. 
AUGUST, 


4-L2 


(SET TI=TE/R.) 
PLOTS OVERLAY. 


e 


(DEPENDING ON *CODE*). 


1977. 


TI (1000) ,X{ 1000) ,¥ (1000) 
, L2MINP, L2MAXP, @ (1000) 


a= 5 


* 
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* 
* 
* 
x 
* 
* 
* 
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IP (IABS(CODE).GT.0) GO TO 2 
CALL PLOT(0.0,0.0,999) 
STOP 
2 CONTINUE 
C1=IABS (CODE) 
C---—---- READ IN PARAMETERS. 
GO TO (11,1213, 14,15, 14) ,C1 
11 WRITE(6,602) 
602 FORMAT(' INPUT TIO, NO L20°) 
READ (5,502) 1TI0,NO,L20 
502 FORMAT (3E10. 3) 
GO TO 16 
12 WRITE(6,603) 
603 FORMAT(* INPUT TEO, NO, L20*) 
READ (5,502) Tz0,NO,L20 
GO TO 16 
13 WRITE (6,608) 
604 FORMAT(* INPUT TEO, TIO, L20°*) 
READ (5,502) TEO,TIO,L20 
‘GO TO 16 
14 WRITE(6,605) 
605 FORMAT(' INPUT TEO, TIO, NO*) 
READ(5,502) TEO,TIO,NO 
GO TO 16 
15 WRITE (6,610) 
610 FORMAT(*’ INPUT NO, L20, TE/TI') : 
READ(5,502) WO,L20,R 
16 CONTINUE 
C------- IF(CODE.GT.0) ERASE SCREEN & RE-WRITE INITIAL CONDITIONS. 
IF(CODE.LT.0) GO TO 70 
CALL TZRASE(&70) 
C------- PAUSE ONE SECOND WHILE TEKTRONIX SCREEN IS ERASED. 
CALL TWAIT(0,ONESEC) 
ALY=740 
CALL SETAL (ALX,ALY,1,&70,670) 
WRITE(6,601) 
WRITE(6,606) CODE 
606 FORMAT(*® *,13) 
GO T0(61,62,63,64,65,64) ,C1 
61 WRITE(6,602) 
WRITE(6,607) TIO,NO,1L20 
607 FORMAT({® ',P7.0,1PE9.1,0PF8. 4) 
GO TO 70 
62 WRITE (6,603) 
WRITE(6,607) TEO,NO,L20 
GO To 70 
63 WRITE(6,604) 
WRITE(6,608) TEO,TIO,L20 
608 FORMAT(* ',2F7.0,F8.4) 
GO TO 70 
64 wRITE(6,605) 
WRITE(6,609) TEO,TIO,NO 
609 FORMAT(* ',2F7.0,1PE9. 1) 
GO TO 70 
65 WRITE(6,610) 
HRITE(6,611) NO,L20,R 
611 FORMAT(* *,1PE9.1,0PF8.4,F6. 2) 
70 CONTINUE 
C------- MOVE ORIGIN AND PLOT NEW AXIS IF DESIRED. 
IF(CODE.LT.0) GO TO 3 
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IF(NTIMEJNE.1) CALL ORG(XLEN,YLEN) 

CALL AXPL(C1,XLEN,YLEN,LYMIN, LYMAX ,LTEMIN, LTEMAX,LTIMIN 
1, LTIMAX, LNMI }, LNMAX, L2MINP,L2M AXP, LUMIN, LWMAX 

2, LY2MIN, LY2MAX) 

3 CONTINUE 

C------- SPECIFY PLASMA PARAMETERS. 

IF((C1.EQ.1) OR. (C1. EQ.5)) GO TO 4 
DO 5 I=1,NP 


eu 


TE(1)=TE£O 
CONTINUE 


IF ((C1.£Q.2) .OR. (C1. £Q.5)) GO TO 6 
DO 7 I=1,NP 


ns 


TI(1)=TIO 
CONTINUE 


IF(C1.EQ.3) GO TO 8 
DO 9 I=1,NP 


@w 


N (I) =NO 
CONTINUE 


IP((C1.EQ.4) -OR. (C1.Z0.6)) GO TO 10 


DO 20 


I=1,NP 


20 L2(I)=L20 
10 CONTINUE 


DO 21 


Ot LV) = 


I=1,NP 
L10 


C=== =~ ~~ — SPECIFY VARYING PARAMETER. 


GO TO 
31 DO 36 


(31, 32,33, 34,35, 43),C1 
I=1,NP 


36 TE(I)=10.0** (LTEMIN+TED*I) 


GO TO 
32 DO 37 


40 
I=1,NP 


37 TI (I) =10.0** (LTIMIN+TID*FI) 


GO TO 
33 DO 38 


40 
I=1,NP 


38 N(I) =10.0** (LNMIN+ND*I) 


GO TO 
34 DO 39 


39 L2(1)= 


GO TO 
35 DO 42 


TE(I)= 
42 TI(1I)= 


GO TO 
43 DLW = 
DO 44 


40 

I=1,NP 

L2MIN+L2D*I 

40 

I=1,NP 

10.0** (LTEMIN+TED*I) 
TE (1) /R 

40 

FLOAT (LWMAX-LWMIN) /NP 
I=1,NP 


W (I) =10.0** (LWMIN+DLW*I) 
44 L2(I) = 1.885B+15*L10/ (1.88 5E+ 15-8 (I) #110) 
4Q CONTINUE 


C-------- CALCULATE MIXING RATE (ALPHA). 
CALL BPMR(L1,L2,N,TE,T1I,NP,ALPHA,NE,NI) 
C-------- SPECIFY Y-VECTOR FOR PLOTTING 
DO 41 I=1,NP 


Y (I) =ALOG10 (ALPHA({TI) ) 
IF(Y (I) .GT.LYMAX) Y(I)=LYMAX 
IP(Y{I)+LT.LYMIN) Y(1I)=LYMIN 


NE(I)= 


ALOG10 (NE(I) ) 


NI (I) =ALOG10 (NI (I) ) 

IF(NE(I) »GT.LY2MAX) NE(I)=LY2MAX 
IF(NE(I)-LT.»LY2H1N) NE(I)=LY2MIN 
IF(NI(I) .GT.LY2MAX) NI(I)=LY2MAX | 
IF(NI(I) -LT.LY2MIN) NI(I)=LY2MIN 
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41 CONTINUE 
Y (NP+#1) =LYMIN 
¥ (NP+2) =FLOAT (LYMAX-LYMIN) /YLEN 
NE(NP#1) =LY2MIN 
NI(NP#1) =LY2MIN 
NE(NP#2) =FLOAT (LY2MAX-LY 2NIN) /YLEN 
NI(NP+2) =FLOAT (LY2MAX-LY2MIN) /YLEW 
C-------- SPECIFY X-VECTOR FOR PLOTTING. 
GO TO (51,52,53,54,51,66) ,C1 
51 X(NP+1)=LTEMIN 
X (NP +2) =PLOAT (LTEM AX-LTEMIN) /XLEN 
DO 56 I=1,NP 
56 X (I) =AL0G10 (TE (I) ) 
GO TO 60 
52 X(NP+1) =LTIMIN 
X (NP+2) =PLOAT(LTIMAX-LTIMIN) /XLEN 
pO 57 I=1,NP 
57 X (I) =ALOG10 (TI (I)) 
GO TO 60 
53 X (NP+1)=LNMIN 
X (NB +2) =PLOAT (LNMAX-LNMIN) /XLEN 
pO 58 I=1,NP 
58 X (I) =AL0G10 (N (TI) ) 
Go TO 60 
54 X (NP+1) =L2MINP 
X (NB+2) = (L2MAXP-L2MINP) /XLEW 
DO 59 I=1,NP : 
59 X(1I)=L2 (T) 
GO TO 60 
66 X(N2+1)=LWMIN 
X(NP#2) = FLOAT (LWMAX-LHMIN) /XLEN 
DO 67 I=1,NP 
67 X(I) = ALOG10 (W(T)) 
60 CONTINUE 
C---—---- DRAW THE LINE. 
CALL LINE(X,Y¥,NP,1,0,0) 
ICHREP = NP/20 
CALL LINE(X,NE,NP, 1,ICHREP, 1) 
CALL LINE({X,NL,NP,1,1CHREP, 3) 
CALL TCLEA&(&1) 
Go TO 1 
END 
SUBROUTINE AXPL(C1,XLEN,YLE },LYMIN ,-LYMAX,LTEMIN, LTEMAX 
1, LTIMIN, LTLM AX, LNMIN, LNMAX,-L2NINP, L2MALP,iWNIN, LUMAX 
2, LY2MIN,LY2MAX) 
: REAL L2MINP, L2MAXP 
INTEGER C1 
C-------- PLOT THE Y-AXIS. 
AXMIN=LYMIN 
DELTG=LYMIN-LYMAX 
CALL LOGAX (0.0,0+0,° ALPHA! ,5,YLEN, 90.0, AXNIN, DELTG, 3-0) 
AXMIN=LY2MIN 
DELTG=LY2MIN~LY2MAX 
CALL LOGAK (XLEN,0.0,'N',-1,YLEN, 90.0,AXHIN, DELTG, 3-0) 
C-------- PLOT THE X-AXIS. 
GO TO (1,2¢324¢1,/6) -C1 
1 AXMIN=LTEMIN 
DELTG=LTEMIN-LTEMAX 
CALL LOGAX (020,0.0,"TE" ,-2 ,XLEN 0. 0, AXMIN, DELTG, 0.0) 
CALL LOGAX (0.0,YLEN,°* *, 1, XLEN,0.0,AXMIN, DELTG, 0.0) 
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GO TO 10 

AXMIN=LTIMIN 

DELTG=LTIMIN-LTIMAX 

CALL LOGAX (0.0,0.0,*TI*,-2,XLEN,0. 0, AXMIN, DELTG,0.0) 
CALL LOGAX (0.0,YLEN," ',1,XLEN,0.0 ,AXMIN, DELTG, 0.0) 
GO TO 10 

AXMIN=LNMIN 

DELTG=LNMIN-LNMAX 
CALL LOGAX (0.0,0.0,'N',-2,XLEN,0.0 ,AXMIN, DELTG, 0.0) 
CALL LOGAX(0.0,YLEN,* °,1,XLEN,0.0,AXNIN, DELTG, 0.0) 
GO TO 10 

AXMIN=L2MINP 

DELTG= (L2MAXP-L2MINP) /XLEN 

CALL AXIS2(0.0,0.0,'L2*,-2,XLEN,0. 0,AXMIN, DELTG, 1.0) 
CALL AXIS2(0.0,YLZN,' ",1,XLEN,0.0,AXMIN, DELTG, 1.0) 
GO TO 10 

AXSIN=LWMIN 

DELTG=LWMIN-LWMAX 

CALL LOGAX(0.0,0.0,'W',—1,XLEN,0.0 -AXMIN, DELTG, 0.0) 
CALL LOGAX (0.0,Y¥LEN,' ',1,XLEN,0.0,AXNIN,DELTG, 0.0) 
RETURN 

END 

SUBROUTINE ORG1(XLEN,YLEN) 
----- MOVE ORIGIN IN A WAY TO MINIMIZE PLOTTER PAPER WASTE, | 
----- FOR TEKTRONIX, RE-SCALE PLOT. 

CALL TCLEAR(&1) 

CALL PLOT (20.0, 10.0,-3) ‘ 
F=AMIN1(30.0/XLEN, 20.0/YLEN) 

CALL FACTOR (F) 

Go TO 10 

CALL PLOT({3.0,3.0,-3) 

X0=0.0 

Y0=0.0 

XL=XLEN 

YL=YLEN 

GO TO 10 

ENTRY ORG (XLEN,YLEN) 


(CS ENTER HERE FOR ALL BUT 1°ST CALL TO THIS ROUTINE. 


10 


C*¥e¥* 


Cc 
Cc 


CALL TCLEAR(&2) 

GO TO 10 

VX=5.04#XL 

VY=5.0+YL 

Y=YO+VY+YLEN 

YL=YLEN 

IP(Y.GT.25.0) GO TO 3 

CALL PLOT (0.0, VY¥,-3) 

YO=YO+VY 

IF (XLEN.GT.XL) XL=XLEN 5 

GO TO 10 

vY=-Y0 

CALL PLOT(VX,VY,—3) 

XL=XLEB 

XO=X0+VX 

Y0=0.0 

RETURN 

END 

SUBROUTINE BPMR(L1,L2,N,T&,TI,NP,ALPHA, NE, NI) 
a ERE REE ERR ES EAE ER ERES ENTREE EERE EE TREE EEE TEES EERE TERE EEE EER EEE SE 
* CALCULATE BEAT FREQUENCY MIXING RATES. * 
¥ BOTH ELECTRON & ION MOTION IS ACCOUNTED FOR. * 
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Cc = ELECTRON - ION COLLISIONS ARE FOLLY ACCOUNTED FOR... x 
Cc * PONDEROMOTIVE FORCE ON BOTH ELECTRONS AND IONS. be 
Cc * RICHARD D. MILROY AUGUST, 14, 1977. * 
CERMEER AER EERE EEK EEE ERE EERE EEE REET EE EEE SEES TEER SHEESH ESSERE ES EEE ES 


COMPLEX J/ (0.0, 100)/,KE(1000) ,KI (1000) ,EP( 1000) ,EDE (1000) 
1, EDI (1000) ,ECE(1000) ,ECI (1000) , JE( 1000) ,J1 (1000) ,X,B( 1000) 
REAL L1(1000) L2(1000) ,N(1000) ,TE( 1000) ,TI(100U) ,#3(1000) ,K3 (1000) 
1,41(1000) ,#2 (1000) ,ALPHA(1000) ,K1,K2,NE (1000) ,NI(1000) 
C=3.0E+10 
c-—------- FIND W3 AND K3. 
DO 1 I=1,NP 
KK=I 
W1(I)=1.885E+15/(L1(I)) 
W2(I) =1.8855+15/ (L2(I)) 
W3 (I) =" 1 (I) - #2 (I) 
WPE=5. 63E+4* SORT (N (I) ) 
IF(WPE.GE.W2(I)) GO TO 8 
K 1=SQRT (W1 (I) **2-WPE**2) /C 
K2=SQRT (W2 (1) **2-W#PE**2) /C 
1 K3(I)=K1+#K2 


GO TO 9 
8 NP=KK-1 
Cs PIND LINEAR SUSCEPTABILITIES. 
9 CALL LSUS(W3,K3,N,TE,TI,NP,KE, KI) ' 
Coe CALCULATE COLLISIONAL CORRECTION FACTOR. 


DO 7 I=1,NP 
V BI=2. 53E-05*N (1) / (TE (I) *# 1.2 5) - 
WRE=5. 63E+4*SQRT (N (I) ) 
B (I) =1.0-J*W3 (I) *VEI/ (WPE**2) 
KE (I) =B (I) *KE (I) 
KI (I) =B (I) *KI (I) 
7 CONTINUE 
C------- SPECIFY DIELECTRIC CONSTANT EP. 
DO 2 I=1,NP 
2 EP (I)=1.0+KE (I) +KI (I) 
C------- SPECIFY PONDEROMOTIVE 'FIELDS*'. FOR I1=12=1.0 
DO 3 I=1,NP 
WPE2 = 3.17E+09*N (I) 
C1 = C*SQRT(1.0-WPE2/ (W1(I) **2) ) 
C2 = C*SORT(1.0-WPE2Z/ (#2 (1) **2) ) 
X=K3 (I) *L1 (I) *L2 (I) *J*C/SQRT (C1*C2) 
EDE(I) =3.11E-16*X 
3 EDI(1I) =-1.692-19*X 
C------- SPECIFY COULOMB FIELDS. 
Do 4 I=1,NP 
. ECE(I) =-KE (I) * (EDE (I) *(1.0#KZ (I) )—KI(L) *EDI (I) ) / (EP (I) *B(1)) 
4 ECI(I) =-KI (I) * {EDI (I) #(1.0#KE(I) )-KE (I) *EDE (I) ) / (EP (I) *B (I) ) 
C------- SPECIFY ELECTRON AND ION CURRENTS. 
DO 5 I=1,NP 
X=J*W3 (I) /12.566 
JE (L)=X*ECE (I) 
5 JI(1)=X*ECI (1) 
C------- SPECIFY BEAT FREQUENCY MIXING RATES. 
DO 6 I=1,NP 
X=2.0E-7*W1(I) /W3 (I) 


A31E = X*REAL (EDE(I) *CONJG (JE(I))) 
A32E = X*REAL (ECI (I) *CONJG (JE (I) )) 
A31I = X*REAL (EDI (I) *CONJG (JI (I) )) 
A32I = X*REAL(ECE{I) *CONJG (JI (I) )) 


A3E = A3Z1E+A32E 
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A3I = A311I+A32I 
ALPHA(I) = A3E+*A3I1 
NE(I) = K3(I) *2.0*CABS (ECE (I)) /(6. 03E-09#N (I) ) 
NI(I) = K3(I)*2.0*CABS (ECI (I))/(6. 03E-09*N (I)) 
Cc WRITE(6,601) L2(I) ,A31E,A32E,A3E,A311,A321,A31, ALPHA (I) 
601 FORMAT(* *,1P8E12.4) 
6 CONTINUE 
RETURN 
END 
SUBROUTINE LSUS(W3,K3,N,TE,TI,NP,XE,KI) 
C¥EREKEEREEEEEREKEK EERE RE EASES ESLER EE EKER ES RRKKKKKAEKKEKEKERCEEKSHEKKKEKARE KE 
Cc * CALCULATE LINEAR SUSCEPTABILITIES FOR BOTH ELECTRONS & PROTONS. * 
Cc * RICHARD De MILROY AUGUST, 16, 1977. * 
CEEKKKKHEEKE RHKEKKEKKEKRERK KKK EEE EK ERE RE SEEK EAE KEE EK EEE REREEEERE EK AEESSE 
COMPLEX KE(1000) ,KI(1000),J/(0.0,1.0) /,F0 
REAL W3(1000) ,K3(1000) ,N{1000) ,TE( 1000) , TL (1000) 
C------- FIND KE. 
DO 1 I=1,NP 
WP=5.63E+4*SQORT(N (I) ) 
VO=5.93E+7*SORT(TE (I)) 
AO=W3(I) /(K3 (I) *VO) 
IF(A0.GT.50.0) GO TO 3 
KE (I) =2. 0* (WP*AO/W3 (I) ) **2*(1.04+J#A0*FO (A0)) 
GO TO 1 
3 KE(I)=- (WP/W3 (I) ) **2 
1 CONTINUE 
C-—----- FIND KI. 
DO 2 I=1,NP 
WP=1.31E43*SQRT(N(I)) 
VO=1, 38E#¢6*SQRT(TI (I)) 
AO=W3(L) /(K3 (I) *VO) 
IF(A0.GT.50.0) GO TO 4 
KI (L) =2. 0* (WP*AO/W3 (I) ) #*2* (1.0+J5* A0*PO (AO) ) 


GO TO 2 
4 KI (I) =- (WP/W3 (LT) ) **2 
2 CONTINUE 
RETURN 
END 
COMPLEX FUNCTION FO(AO) 
(SO CALCULATE FO AS DEFINED ON PAGE 178 OF STIX. 


COMPLEX J/(0.0,1.0)/ 
REAL POSPL(12,5) 
DATA FPOSPL/0 .2,005,00841004 le2e lodge Tg 2a 0 2e5¢ 30043055400, 
1 23895, 027199, 1.064, 12076, 14015, 0.913, 0.7451,0.6027,0.4462,0. 3565 
24 002992500 25.87 12003 414299 0 2 5974,-0.2165,-0.4152,-0.5635,-0. 532, 
3-0.4114,-0.2316,-0.1393,-0. 0931,0.0, 0. 0, 0. 987,-324911,-0. 3284, 
U— 0.670 19-0 006606 ,0.1709,0.23 1,0. 1287 ,0.55932-1,0.03642,0.0,1.097 
5, -4.976 950272 4-0-5696, 1.007, 0. 263 3,0. 06673,-0. 06821,-0.0485, 
6-0.01301,-0.02428,0.0/ 
AOE=A0 
L? (AOE.GT. 10.) AOE=10.0 
AQES=AQE#A0E 
Cc SPLINE APPROXIMATION FOR FO 
IF(A0.LT.0.21) GO TO 90 
IF (A0.GT.3.25)GO TO 12 
DO? 1=1,12 
IP(AQ.LT.FOSPL(I,1))GO TO 8 
7 CONTINUE 
8 I=I-1 
DA=A0-POSPL({I, 1) 
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PO=FOSPL(I,2) #+FOSPL(I,3) *DA+FOSPL(I,4) *DA*DA*FOSPL (1,5) *DA**3 
P0=J *F0 

GO TO 11 

PO=J /A0* (1.040.5/(A0#A0) #0.75/(AO* #4) +14875/ (AD**6) #6. 563/ (A0**8) ) 
GO TO 11 

F0=2,0*J* (A0-0.666667 *A0 *#3+%. 26666 7#A0**5~.0 75 1905*A0**7) 

GO TO 11 

DAMP=1.772*E XP (—AQES) 

FU=F0+DAMP 

RETURN 

END 
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R.D. Milroy, J.N. McMullin, and C.E. Capjack, ''Two-Dimensional 
Hydrodynamic Simulations of a Laser Heated Gas Target Plasma." (In 
Preparation - To be submitted to Can. J. Phys.) 


R.D. Milroy, C.E. Capjack, and C.R. James, "Plasma Parametric 
Amplification of Ultra-Short Laser Pulses." (In Preparation - To be 
submitted to Can. J. Phys.) 


PATENT 
A United States patent is being applied for through Canadian Patents 


and Development Limited for "Parametric Amplifier for Amplifying Laser 
Radiation", R.D. Milroy, C.E. Capjack,and C.R. James. 
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